Даны 2 натуральных числа A, B. Определить их наибольший общий делитель
zaaz123
2
23.03.2020 09:01
0
Другие вопросы по теме Информатика
uliatuchakrom9
20.11.2020 11:26
Marinet1806
20.11.2020 11:25
66ХОХ66
20.11.2020 11:16
петя1023
20.11.2020 11:15
Lis25pfi174
20.11.2020 11:15
Лемо4ик
20.11.2020 11:14
1inks
20.11.2020 11:13
sitnikovaalice
20.11.2020 11:05
sofiya113
20.11.2020 11:04
Популярные вопросы
- Гаметы индюка содержат 41 хромосому. Сколько хромосом содержат гаметы индюшки?...
2 - Работа в группах. Bugune11.1. Укажите количествопредложений в 1-й частистихотворения.2....
3 - Прочитайте текст что мешает пониманию...
3 - Электромобиль мощностью в 30кВт перевёз груз за 23 мин. Какую работу совершил...
3 - Кто такие украиночки? И почему они самые красивые в мире? И кто сказал что они...
2 - Прочитайте текст. Проаналізуйте, які можливі дії споживача. Як а поведінка в...
2 - )Кактусовый сыч – сова размером 12–14 см и весом около 44 г. (2)Посадка тела...
1 - Жаворонки С первыми лучами солнца в небо взлета-ют жаворонки. Ихтрели веером...
3 - Надо прочитать на русском языке не перевод...
1 - Почему фоконя фоня это фоконя фоня...
1
var
a, b, c: integer;
begin
Writeln('Введите два числа');
Read(a, b);
repeat
if a > b then
a := a mod b
else b := b mod a
until (a = 0) or (b = 0);
c := a + b;
Writeln('Наибольший общий делитель: ', c);
end.