Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
NoAl3
11.01.2023 06:42 •
Информатика
Напишите программу вычисления наибольшего общего делителя двух натуральных чисел. используйте оператор repeat,while.
Показать ответ
Ответ:
Nashinvo
02.07.2020 12:56
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;
begin
writeln('НОД(264;5436)=', NOD(264, 5436))
end.
Тестовое решение:
НОД(264;5436)=12
0,0
(0 оценок)
Популярные вопросы: Информатика
bananchik1213
09.02.2020 04:01
Консультант плюс это ...,основу которой составляет ... ... и в которой документы располагаются ......
GraniteScience
03.06.2022 18:28
Выбери, что относится к определению компьютерного вируса? 1) прикладная программа 2) копируется в загрузочный сектор 3)программа, выполняющая на компьютере несанкционированные...
Floki23
25.06.2020 05:38
получить из исходной цепочки Ь7КК* новую цепочку...
swaTor
02.10.2021 14:26
Внесення змін до змісту текстового документа - вставлення у нього додаткових символів, видалення зайвих, виправлення помилок - називають та при введенні тексту найчастіше...
olgapustovarova1
02.10.2021 14:26
Дано число, из которого требуется построить другие слова, используя процедуры и функции обработки строк, и и вывести новые слова на экран: - железнодорожник: необходимо...
kotsdanil778
02.10.2021 14:26
Программа на паскале. составить программу превода натурального числа n из 10 системы счисления в 8 систему счисления через рекурсию. что число натуральное, проверять...
Evgenchee
24.10.2020 23:44
Записати у вигляди видсотка...
asd135
12.10.2021 22:44
Під час заломлення світла незміним залишається ... що підтверджує ......
rkdkeidkoks61
19.05.2023 13:21
зображено паралелограм АВС і трикутник ВИС який не лежить у площіні палалеграма Відомо що ИР =РВ, ИF=FC, BC =10 cм...
maklakovatattu
01.03.2021 14:53
Укажите, чему равно эквивалентное число химической реакции:HNO3 + LiOH = LiNO3 + Н2ОНайдите эквивалентные числа и молярные массы эквивалентов для всех веществ, участвующих...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
while a <> b do
if a > b then a := a - b
else b := b - a;
NOD := a
end;
begin
writeln('НОД(264;5436)=', NOD(264, 5436))
end.
Тестовое решение:
НОД(264;5436)=12