Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
albina1002
17.06.2021 18:02 •
Информатика
Быстреее осталось 4 мин я потом ещё ответ лутшем сделаю
👇
Увидеть ответ
Ответ:
ezdinaa
17.06.2021
1 представление 2показ 3 информация
4,7
(60 оценок)
Ответ:
evmenovvlad
17.06.2021
1-показ
2- представление
3- информация
4,4
(41 оценок)
Открыть все ответы
Ответ:
yarikplay13
17.06.2021
//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
17.06.2021
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида
//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 оценок)
Это интересно:
К
Компьютеры-и-электроника
12.03.2020
Как запустить компьютер с командной строки: Руководство по запуску ОС без использования графического интерфейса...
О
Образование-и-коммуникации
23.03.2020
Как выжить в общежитии колледжа...
С
Стиль-и-уход-за-собой
12.12.2021
Как заменить ремешок на часах: простой и быстрый гид...
С
Стиль-и-уход-за-собой
03.12.2020
Безопасность в городе: как защитить себя от хулиганов?...
Д
Дом-и-сад
21.02.2022
Как выращивать тыкву зимних сортов: советы и рекомендации...
К
Кулинария-и-гостеприимство
27.12.2021
Как готовить морского окуня: секреты профессионалов...
П
Питомцы-и-животные
07.12.2022
Как приучить кошку ходить в туалет на унитаз...
Т
Транспорт
21.04.2022
Как стать настоящим мастером вождения в стиле Дзен...
К
Компьютеры-и-электроника
15.02.2023
Как отключить Безопасный поиск в Google на Android: Простой подход для получения наилучшего опыта поиска...
С
Стиль-и-уход-за-собой
19.01.2021
Как сделать помаду для волос: рецепты, полезные советы и ошибки, которые нужно избежать...
Новые ответы от MOGZ: Информатика
dianavolk00
15.08.2020
С++ Дан массив a состоящий из n целых чисел. Требуется найти количество пар соседних элементов массива, оканчивающихся нулем. Формат входных данных На первой строке записано целое...
svetacok
14.07.2020
2. Insonning kompyuterda ish bajarish jarayoni bilan informatika fani yo nalishlarini bogʻlang. 1 Antivirus o rnatish Kompyuterning texnik qismi 2 Hujjatni chop etish 3 Rasmlarni...
AHgpyxa
29.08.2022
ів.Exсel. Потрібна до .Скласти програму-тест: є 5 запитань, на кожне з них по 4 варіанти відповіді(в двох запитаннях є по дві правильні відповіді, в інших по одній). За правильну...
Cancanich
23.11.2020
Отметь верные утверждения о типах данных и интепретаторе. Правильных ответов может быть несколько. Если попытаться сложить две строки, то программа выдаст ошибку Интерпретатор...
KAY111
14.09.2022
В алфавите 4 символа. Сколько бит будет весить 1 символ?...
andriyianna
19.09.2022
Спрограммируйте на python, работа со строками У меня есть строка, предположим, wiki12326341256*text*wiki76456734565*text*wiki36425632341 и мне из этой строки нужно вычленить минуя...
nastya05112
29.09.2021
В чем суть совместной работы над документами? Какие сервисы представляют такие возможности?...
АмерикаСингер852
02.03.2020
Как называется метод, который позволяет уменьшить неопределённость знания в два раза? метод двоичного поиска метод половинного деления метод золотого сечения метод линейного поиска...
ElenaBorova
06.04.2020
По какому протоколу осуществляется маршрутизация пакетов? IP TCP HTTP FTP...
anna1877
15.05.2023
Как называется технология пакетной передачи данных, которая используется в кабельных локальных сетях? Token Ring Arcnet Ethernet Internet...
MOGZ ответил
Переведите в правильную дробь 2 7/10, 1 11/14, 2 2/29, 5 2/11, 3 12/13, 3 10/11,...
X*y+x*z-y*x+y+z-z*x-z*y не могу понять как решить...
Основоположник династии князей 5 букв...
Сократите дробь 1) 12x^2-4x/2-6x 2) x^2-9/x^2+6x+9 3) b^7+b^4/b^2+b^5...
Расположите существительные в порядке следования падежей 1.перед избами 2.на...
Побери синонимы к следующим устойчивым выражениям: впасть в сомнение, выжить...
Почему в предложении when i came __ home i drank отсутствует артикль?...
Аяғы біреу қолы жоқ шиыр-шиыр жолы көп өзі сөйлей білмейді салған ізі сөйлейді...
Разобрать слова как часть речи-машины...
Найти множество значений функции y=2arcsin(x^2-1)-п/2...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
1 представление 2показ 3 информация