Вот вам задачка для круты прогеров(PascalABC)

0 голосов
48 просмотров

Вот вам задачка для круты прогеров(PascalABC)


image

Информатика | 48 просмотров
0

а язык то какой???

0

Крутые прогеры не пишут на Паскале)))))

Дан 1 ответ
0 голосов
Правильный ответ

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.

(149k баллов)