Нужно написать алгоритм для нахождения нод двух чисел в паскале

унитазавр унитазавр    3   02.04.2019 20:42    7

Ответы
IVANICH31 IVANICH31  28.05.2020 12:48

var a,b: integer;

begin

readln(a,b);

while (a<>0)and(b<>0) do

if a>b then a:=a mod b

else b:=b mod a;

writeln('НОД = ',a+b);

end.

Пример:

125 50

НОД = 25

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика