Question

составьте программу нахождения наибольшего общего делителя трех чисел, используя формулу: НОД(А,В,С)=НОД(НОД(А,В),С) используя алгоритм Евклида в Паскале

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

function НОД(a, b: integer): integer;

begin

 while b > 0 do

   (a, b) := (b, a mod b);

 Result := a

end;

begin

 var (a, b, c) := ReadInteger3;

 НОД(НОД(a, b), c).Println

end.

78 294 570

6

Замечание: числа должны быть неотрицательными