Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Нужно на паскале

Ответ оставил Гость

var
  a, b, c:integer;
begin
  write(a = ); readln(a);
  write(b = ); readln(b);
  write(c = ); readln(c);
  write(НОД(, a, , , b, , , c, ) = );
  while (a <> 0) and (b <> 0) do
    if a >= b then
      a := a mod b
    else
      b := b mod a;
  a := a + b;
  while (c <> 0) and (a <> 0) do
    if a >= c then
      a := a mod c
    else
      c := c mod a;
  writeln(a + c);
end.