Cod sursa(job #590556)

Utilizator RainDropsMDMinzelevschi Igori RainDropsMD Data 18 mai 2011 10:58:27
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.41 kb
var f,g:text;
    a,b,n,i:longint;

function cmmdc(a,b:longint):longint;
begin
 if b = 0 then cmmdc:=a
          else cmmdc:=cmmdc(b,a mod b)
end;

Begin
 assign(f,'euclid2.in');
 assign(g,'euclid2.out');
 reset(f);
 rewrite(g);
 readln(f,n);
 for i:=1 to n do begin
                   readln(f,a,b);
                   writeln(g,cmmdc(a,b));
                  end;
 close(f);
 close(g);
End.