Cod sursa(job #408508)

Utilizator hungntnktpHungntnktp hungntnktp Data 3 martie 2010 05:11:27
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.73 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: longint;
   (*-----------------------------------*)
   function Ucln(a, b: longint): longint;
   var
      i: longint;
   begin
      while b > 0 do
       begin
         i := a mod b;
         a := b;
         b := i;
       end;
      exit(a);
   end;
   (*-----------------------------------*)
begin
   Assign(fi, TFI); Reset(fi);
   Assign(Fo, TFO); Rewrite(fo);
   Readln(fi, T);
   While t > 0 do
      begin
         dec(t);
         Readln(fi, a, b);
         Writeln(fo, Ucln(a, b));
      end;
   Close(fo);
   Close(fi);
//   writeln(5 mod 7);
end.