Question

Решить на pascalabc.net в синтаксисе pascal abc. даны натуральные числа m и n. используя алгоритм евклида, найти наиболь-ший общий делитель чисел m и n. (алгоритм евклида: большее из двух чисел де-лят на меньшее, затем меньшее на первый остаток, далее первый остаток – на второй, второй – на третий и так до тех пор, пока в остатке не получится нуль; тогда последний делитель является нод данных чисел.)

Answer 1

Var
  m,n,t:integer;
begin
  Write('Введите пару натуральных чисел: '); Read(m,n);
  while n<>0 do begin
    m:=m mod n;
    t:=m; m:=n; n:=t
    end;
  Writeln('НОД=',m)
end.

Примеры
Введите пару натуральных чисел: 640 1820
НОД=20

Введите пару натуральных чисел: 1820 640
НОД=20