Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
VasyaKotikSnake
05.01.2023 08:16 •
Информатика
Запланувати загальний товарообіг по кварталах, якщо виконання плану товарообігу очікується в 1 кварталі - 26%, 2 - 23%, 3 - 24%, 4 - 27%.
👇
Увидеть ответ
Открыть все ответы
Ответ:
yarikplay13
05.01.2023
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
for var i:=1 to 1000 do
if i mod 7 =0 then print(i);
end.
Тестовое решение:
7 14 21 28 35 42 49 56 63 70 77 84 91 98 105 112 119 126 133 140 147 154 161 168 175 182 189 196 203 210 217 224 231 238 245 252 259 266 273 280 287 294 301 308 315 322 329 336 343 350 357 364 371 378 385 392 399 406 413 420 427 434 441 448 455 462 469 476 483 490 497 504 511 518 525 532 539 546 553 560 567 574 581 588 595 602 609 616 623 630 637 644 651 658 665 672 679 686 693 700 707 714 721 728 735 742 749 756 763 770 777 784 791 798 805 812 819 826 833 840 847 854 861 868 875 882 889 896 903 910 917 924 931 938 945 952 959 966 973 980 987 994
4,7
(88 оценок)
Ответ:
KVika65
05.01.2023
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида
//PascalABC.Net
function NOD(A, B: integer): integer;
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
procedure pNOD(A, B: integer; var NOD: integer);
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
begin
var a: Array of integer := (16, 32, 40, 64, 80, 128);
var n := a[low(a)];
for var i := low(a) to high(a) do
pNOD(n, a[i], n);
Writeln(n);
end.
4,8
(31 оценок)
Это интересно:
С
Стиль-и-уход-за-собой
26.11.2020
Как сделать боб каре как у Пэрис Хилтон...
К
Кулинария-и-гостеприимство
31.05.2023
Как приготовить банановый смузи без блендера: простые и эффективные методы...
Д
Дом-и-сад
26.01.2022
Как выложить пол керамической или керамогранитной плиткой: советы и рекомендации...
27.05.2020
Как добиться ясности ума: советы от экспертов...
З
Здоровье
14.01.2023
Очистка организма от кокаина: научно проверенные методы...
К
Компьютеры-и-электроника
09.10.2022
Как сделать стекло в игре Minecraft: подробный гайд...
К
Кулинария-и-гостеприимство
28.09.2021
Шаг за шагом: Как пользоваться штопором и открыть бутылку вина...
С
Стиль-и-уход-за-собой
27.05.2021
Как предотвратить врастание волос после эпиляции...
10.01.2022
10 советов, как повзрослеть после совершеннолетия и принять ответственность за свою жизнь...
К
Кулинария-и-гостеприимство
06.06.2022
Как приготовить конфеты из сахара...
Новые ответы от MOGZ: Информатика
magameded10
03.01.2021
Даны два целых числа. Определить число, Квадрат которого больше. Если квадраты чисел равны, то вывести любое из них....
natalizotowa198
28.08.2022
Дан массив с(10). сформируйте из него массивы а(5) и в(5), предварительно определив их длину. в массив а включите элементы из массива с с четными индексами, а в в— с нечетными....
HoneyAmy
09.02.2021
20 построить блок-схему линейного алгоритма...
muradveliyev
12.01.2022
119) укажите наименьшее трёхзначное натуральное число, при вводе которого эта программа напечатает сначала 2, потом – 9. var x, a, b: longint; begin readln(x); a : = 0;...
azizplay07
10.09.2021
Заполни пропуски в предложениях! литосфера состоит из отдельных малоподвижных плиты разъединены подвижными литосферные плиты медленно перемещаются по пластичному со в год.у...
molniablack
10.03.2023
Выведите три числа. если они могут быть длинами сторон прямоугольного треугольника выведите их в порядке возрастания и вычислите площадь полученного треугольника...
dina15777
10.03.2023
Пусть даны длины сторон треугольника. вычислите его площадь....
Islikzaziy
06.09.2021
ответьте . мне для билетов надо 1. понятие абсолютной и относительной адресации в microsoft excel.. 2. условное форматирование данных в microsoft excel. 3. сортировка и...
MR3AlI
06.09.2021
Пусть дано натуральное число n, состоящее из шести цифр. определите число сотен и тысяч в нем....
dianapanova2004
04.09.2021
9класс. составьте алгоритм вычисления (блок-схема на pascal). a²+4 √a²+√4 y= ⁻⁻⁻⁻⁻⁻⁻ + ⁻⁻⁻⁻⁻⁻⁻⁻ 6 4...
MOGZ ответил
Сколько точек может оказаться в пересечении а) прямой и окружности;...
Сочинение от имени путешественника про то, как он путешествует по африке...
Какие события в чили похожи на известные вам события отечественной 20...
Укажите мероприятие проводившееся в сша в рамках политики нового курса...
онегин, добрый мой как по-вашему, автор относится к своему герою? нужно...
Какие характеристики можно подобрать к каждому природному явлению чс,...
Скажите ! какую погоду приносят 1) циклон 2) антициклон...
Сочинение на тему зима в художественном стиле...
Написать небольшое сочинение (не более страницы)на тему чего не хватает...
Нужен план сказки серебрянное копытце 8 частей !...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
begin
for var i:=1 to 1000 do
if i mod 7 =0 then print(i);
end.
Тестовое решение:
7 14 21 28 35 42 49 56 63 70 77 84 91 98 105 112 119 126 133 140 147 154 161 168 175 182 189 196 203 210 217 224 231 238 245 252 259 266 273 280 287 294 301 308 315 322 329 336 343 350 357 364 371 378 385 392 399 406 413 420 427 434 441 448 455 462 469 476 483 490 497 504 511 518 525 532 539 546 553 560 567 574 581 588 595 602 609 616 623 630 637 644 651 658 665 672 679 686 693 700 707 714 721 728 735 742 749 756 763 770 777 784 791 798 805 812 819 826 833 840 847 854 861 868 875 882 889 896 903 910 917 924 931 938 945 952 959 966 973 980 987 994