Cod sursa(job #1197235)

Utilizator CojocaruGabrielCojocaru Gabriel CojocaruGabriel Data 11 iunie 2014 12:40:39
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.53 kb
var x,y:  int64;
   t,t1:   text;
    i,n:longint;
      function cmmd(x,y:int64):int64;
       begin
         if y=0 then
            cmmd:=x
          else
            cmmd:=cmmd(y,x mod y);
       end;
         begin
          assign(t,'euclid2.in');
          reset(t);
          assign(t1,'euclid2.out');
          rewrite(t1);
          readln(t,n);
          for i:=1 to n do begin
            readln(t,x,y);
            writeln(t1,cmmd(x,y));
          end;
          close(t);
          close(t1);
         end.