Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
angelinaguseyn
21.09.2020 05:27 •
Информатика
Написать программу нахождения наибольшего общего делителя (нод) двух натуральных чисел.а)использовать оператор repeatб) использовать оператор while
Показать ответ
Ответ:
zulu51
27.06.2020 12:55
var a,b: integer;
function NOD(x,y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
begin
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
asemk85
31.12.2021 11:15
Решить примеры: 1) 1101 во 2 степени+110 во 2 степени 2) 100 во 2 степени-10 во 2 степени....
Allison5
31.12.2021 11:15
Составить блок-схему для нахождения суммы всех натуральных чисел, кратных 10....
димас248
31.12.2021 11:15
Решить для 8 класса по информатике запишите, что выполняет данная программа: program v1; var k, i : integer; begin k: =0; for i: =1 to 100 do if i mod 3=0 then k: =k+1;...
7Kamilla
22.07.2020 19:35
1. Постройте таблицы истинности для логических выражений: а) A & B ∨ ¬ A & B б) (A ∨ B) & (¬ A ∨ B) Раздел 3. 1. Составить линейный алгоритм для примера a+b-c=x....
elenachemiris
02.04.2022 01:58
2. Что выйдет на экране в результате выполнения a= (“information”, 2, 55, 78) print(а)? а) 2, 55, 78 b) information 2 55 78 c) (information , 2, 55, 78) d) information...
Messi1444
15.03.2021 13:46
Исходное данное – целое трёхзначное число X.Выполните алгоритм для нескольких X...
LLA7A
23.07.2022 21:01
Жобаға анимацияны не үшін жасайды...
Ilja0413
27.05.2021 05:04
Для хранения растрового изображения размером 1024×768 пикселей отвели 1 Мбайт памяти. Каково максимальное возможно е число цветов в палитре изображения...
Lyn8023
20.11.2021 12:57
Текстовыми редакторами являютсяMS PowerPointPoetCorelDrawEmEditorWinZip...
sibuna1
12.01.2021 05:46
Разработайте программу, которая запрашивает три строковые величины - взаимосвязанные прилагательное, существительное и глагол, а затем выводит все варианты фраз с использованием...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function NOD(x,y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
begin
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.