Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Решить.Даны натуральные числа n,m; найти НОД(n,m). Использовать программу, включающую рекурсивную процедуру вычисления НОД, основанную на соотношении НОД(n,m)=НОД(m,r), где r – остаток от деления n на m.(паскаль)

Ответ оставил Гость

Var
 a,b:integer;
procedure nod(x,y:integer);
begin
 if x=y then writeln(x)
        else if x>y then nod(x-y,y) else nod(x,y-x);
end;
begin
 writeln(Введите два числа );
 readln(a,b);
 write(НОД: );
 nod(a,b);
end.

Тестовое решение:

Введите два числа
33
18
НОД: 3