Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(А, В, С) = НОД(НОД(А, В), С)
Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(А, В, С) = НОД(НОД(А, В), С).
Program zad_2_nica;
var A, B, C: integer;
begin
write ('Введите A: ');
read (A);
write ('Введите B: ');
read (B);
write ('Введите C: ');
read (C);
while (A<>B)
do begin
if A>B
then A:=A-B
else B:=B-A
end;
while (A<>C)
do begin
if A>C
then A:=A-C
else C:=C-A
end;
writeln ('НОД(A,B,C)=', A)
end.