Предмет: Информатика,
автор: Lola9999
Написать программу нахождения наибольшего общего делителя (НОД) двух натуральных чисел.а)использовать оператор repeatб) использовать оператор while
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
Такой алгоритм знаю, через while сейчас не вспомню, извините
Интересные вопросы
Предмет: Английский язык,
автор: vdp85b5juc
Предмет: Геометрия,
автор: vvvvv8835
Предмет: История,
автор: StudPacker
Предмет: Биология,
автор: Vika19966
Предмет: Алгебра,
автор: Kellymisfits