Используя подпрограмму-функцию , вычисляющую НОД двух чисел , составьте...

Question

Используя подпрограмму-функцию , вычисляющую НОД двух чисел , составьте подпрограмму-функцию для вычисления НОД трех целых чисел . Помогите пожалуйста очень срочно нужно!!!

Answer 1

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

function gcd(a,b:integer):integer;
begin
  while b<>0 do
  begin
    a:=a mod b;
    (a,b):=(b,a);
  end;
  Result:=a
end;

function gcd3(a,b,c:integer):=gcd(gcd(a,b),c);

begin
  Writeln('НОД(138,48,312)=',gcd3(138,48,312))
end.

Пример
НОД(138,48,312)=6

Comments

Спасибо