Составить алгоритм и программу определения наибольшего общего делителя (НОД)двух натуральных чисел!!

1

Ответы и объяснения

2014-02-13T17:06:59+04:00
Program z;
var nod,a,b:integer;
begin
read(a,b);
while a <> b do
begin
if a > b then begin
if a mod b <> 0 then a:=a mod b else a:=b end
else begin if b mod a <> 0 then b:=b mod a else b:=a end; end;
nod:=a;
writeln(nod);
end.