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

Категория: Delphi/Pascal
2012-03-03 19:17:32
code: #pascal
Program Pascalguru;
 
procedure nod(n,m:integer);
var r:integer;
begin
if m=0 then begin writeln('NOD: ',n); exit;end;
r:=n mod m; n:=m; m:=r;
nod(n,m);
end;
 
 
var n,m:integer;
begin
write('m: '); readln(m);
write('n: '); readln(n);
 
nod(n,m);
 
readln;
end.
Поделиться:

Похожие статьи: