Написать программу нахождения наибольшего общего делителя (НОД) двух натуральных...

Question

Написать программу нахождения наибольшего общего делителя (НОД) двух натуральных чисел.а)использовать оператор repeatб) использовать оператор while

Answer 1

var a,b: integer;
function NOD(x,y: integer): integer;
begin
   if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
begin
   readln(a,b);
   writeln( 'НОД = ', NOD(a,b) );
end.

Comments

Такой алгоритм знаю, через while сейчас не вспомню, извините