Cod sursa(job #408505)

Utilizator hungntnktpHungntnktp hungntnktp Data 3 martie 2010 05:05:40
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.91 kb
{$M 64000000,0}
{$H-,I-,Q-,R-,S-}
{La Hoang
Ngay 3-3-2010}
const
   TFI  = 'euclid2.in';
   TFO  = 'euclid2.out';
var
   fi, fo: text;
   T, a, b, R: longint;
   (*-----------------------------------*)
   procedure Input;
   begin
      Readln(fi, a, b);
   end;
   (*-----------------------------------*)
   procedure process;
   var
      i: longint;
   begin
      while b <> 0 do
       begin
         i := a mod b;
         a := b;
         b := i;
       end;
      R := a;
   end;
   (*-----------------------------------*)
   procedure Output;
   begin
      Writeln(fo, R);
   end;
   (*-----------------------------------*)
begin
   Assign(fi, TFI); Reset(fi);
   Assign(Fo, TFO); Rewrite(fo);
   Readln(fi, T);
   While t > 0 do
      begin
         dec(t);
         Input;
         Process;
         Output;
      end;
   Close(fo);
   Close(fi);
//   writeln(5 mod 7);
end.