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

+ 0 -

Isaeva1995

21 янв. 2014 г., 6:01:00 (10 лет назад)

var a, b, c, i: integer;
function gcd(a:integer; b:integer): integer; {алгоритм Евклида}
begin
     if a < b
     then
         begin
              i := a;
              a := b;
              b := i;
         end;
     if (b = 0) or (a = b)
     then
         gcd := a
     else
         gcd := gcd(b, a mod b);
end;

begin
     readln(a, b, c);
     i := gcd(a, b);
     i := gcd(i, c);
     writeln(i);
end.