Написать программу нахождения наибольшего общего делителя (НОД) двух натуральных чисел.а)использовать оператор repeatб) использовать оператор while
Написать программу нахождения наибольшего общего делителя (НОД) двух натуральных чисел.а)использовать оператор repeatб) использовать оператор while
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы