Question

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

Answer 1

Function NOD(A, B: integer): integer;
  begin
    while (A <> 0) and (B <> 0) do
      if A >= B then
        A := A mod B
      else
        B := B mod A;
    Result := A + B;
  end;
 var
    A, B, C: integer; begin
    write(tri chisla:');
    readln(A,B,C); 
    writeln(NOD(A,NOD(B,C))); 
    readln; 
end.
Не забудь поставить лучший ответ