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

Question

Информатика

Лукьян

16 августа, 00:17

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

+4

Ответы (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