Вычислить наибольший общий делитель двух натуральных чисел А и В используя цикл с постусловием
Var a, b, n: integer;
begin
writeln (Введите два числа: );
readln (a, b);
repeat
if a > b then a := a mod b
else b := b mod a;
until (a = 0) or (b = 0);
n := a+b;
writeln (НОД = , n);
end.
Пример:
125 50
НОД = 25
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
