Question

Даны два натуральных числа. Вычислите их наибольший общий делитель при помощи алгоритма Евклида, реализованного без использования рекурсии.

Входные данные
Вводится два натуральных числа.

Выходные данные
Выведите ответ на задачу.

Примеры
входные данные
12
14
выходные данные
2

Answer 1

// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b:integer;
  Read(a,b);
  while b<>0 do begin a:=a mod b; Swap(a,b) end;
  Writeln(a);
end.