Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
tatybat
18.04.2022 12:52 •
Информатика
Написать программу нахождения наибольшего общего делителя (нод) двух натуральных чисел.а)использовать оператор repeatб) использовать оператор while
Показать ответ
Ответ:
aleksaptikeev
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 оценок)
Популярные вопросы: Информатика
umnikummmmmm
30.07.2020 09:20
1)никогда не пытайтесь взломать документ с установленным паролем. по какой причине? 2) нельзя верить всем сведениям, полученным из интернета.не вся информация, на...
jykov2000
03.12.2020 02:06
Мына мысалга карай отырып, 2 санның көбейтіндісін табатын программа жазамыз...
Trollyz
09.09.2021 03:10
Талдап, салыстырайық Өңделген видеожазба мен өңделмеген видеожазбалар-ды салыстырып, ойыңды айт....
КатяСимагина1
26.11.2020 08:47
Решите задачу используя двумерный массив. Выведите два числа: номер строки и номер столбца, в которых стоит максимальный элемент....
Roman22020
13.09.2021 03:08
Для хранения растрового изображения размером 64х64 пикселя отвели 512 байтов памяти. каково максимально возможное число цветов в палитре изображения?...
lera1066
05.09.2022 00:14
Как организована связь абонентов в сети?...
ykub321
09.09.2020 19:16
Определите сколько байтов в слове класс...
ChemistKNO3
16.05.2021 05:06
Определите сколько битов в слове учебник...
katy0987
19.04.2023 04:32
Написать программу в паскаль: в велогонке принимают участие двое велосипедистов. скорость первого 35 км/ч, скорость второго 30 км/ч. определить насколько позже второй...
Мини196
13.06.2020 09:50
Объем оперативной памяти компьютера 8 гбайт. сколько страниц текста можно разместить в памяти этого компьютера (на странице размещается 40 строк по 60 символов в...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.