Составить программу для нахождения наибольшего общего делителя двух натуральных чисел M и...

Question

Составить программу для нахождения наибольшего общего делителя двух натуральных чисел M и N.

Answer 1

Pascal

var a,b,i,c,d:integer;
begin
writeln ('Введите два натуральных числа');
readln (a,b);
if (a>0) and (b>0) then begin
if (a=b) then writeln ('НОД = ',a) else begin
if (a>b) then c:=a else c:=b;
for i:=1 to c do begin
if (a mod i=0) and (b mod i=0) then d:=i;
end;
writeln ('НОД = ',d);
end;
end else writeln ('Неверный ввод');
end.