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