Вот вам задачка для круты прогеров(PascalABC)
Вот вам задачка для круты прогеров(PascalABC)
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var n,m:integer;
function NOD(n,m:integer):integer;
begin
while n<>m do if m>n then m:=m-n else n:=n-m;
nod:=m;
end;
begin
readln(m,n);
writeln('nod=',NOD(m,n));
end.
Не нашли ответ?
Похожие вопросы