Question

написать программу вычисления  наибольшего общего делителя двух натуральных чисел  используя оператор while. СРОЧНО!

Answer 1

var
m, n: word;
begin
readln(m, n);
while m <> n do begin
if m > n then begin
m := m - n
end else
begin
n := n - m
end
end;
writeln(m)
end.