Вычислить наибольший общий делитель двух натуральных чисел А и В используя цикл с постусловием

Question

Информатика

Лизуня

12 августа, 22:42

Вычислить наибольший общий делитель двух натуральных чисел А и В используя цикл с постусловием

+3

Ответы (1)

Знаете ответ на вопрос?

Амелфа · Answer 1

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