Напишите программу ** языке PascalABC.NET которая с помощью алгоритма Евклида вычисляет...

Question

Напишите программу на языке PascalABC.NET которая с помощью алгоритма Евклида вычисляет НОД.

Answer 1

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

begin
  var (a,b):=ReadInteger2('Введите через пробел два натуральных числа:');
  while b>0 do
    (a,b):=(b, a mod b);
  Writeln('НОД = ',a)
end.