Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Напишите рекурсивную и не рекурсивную функции вычисляющие НОД двух натуральных чисел с помощью модифицированного алгоритма евклида

Ответ оставил Гость

Рекурсивная:
function NOD(x,y:integer):integer;
begin
 if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
var a,b:integer;
begin
write(a=); readln(a);
write(b=); readln(b);
writeln(НОД=,NOD(a,b));
end.

Не рекурсивная:
function NOD(x,y:integer):integer;
begin
while (x<>0)and(y<>0) do
 if x>y then x:=x mod y else y:=y mod x;
NOD:=x+y;
end;
var a,b:integer;
begin
write(a=); readln(a);
write(b=); readln(b);
writeln(НОД=,NOD(a,b));
end.

Пример:
a=125
b=50
НОД=25