Question

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

Испоьзуя алгоритм Евклида

Answer 1

var
    a, b, c: longint;

function nod(a, b: longint): longint;
begin
    a := abs(a);
    b := abs(b);
    if a * b = 0 then nod := 1
    else begin
        while a <> b do
            if a > b then
                a := a - b
            else
                b := b - a;
        nod := a;
    end;
end;

begin
    read(a, b, c);
    writeln(nod(nod(a, b), c));
end.