Задача Паскаль

Question

Дмитрий Солдатов Ученик (49), закрыт 10 лет назад

Определить для двух натуральных числе a и b наибольший общий делитель НОД

Пример
Введите два числа

36 24

НОД (36,24)=12

Answer 1

Очень просто:
function NOD(a, b : Word) : Word;
begin
while (a<>0) and (b<>0) do if a>b then a:=a mod b else b:=b mod a;
NOD := a + b;
end;