Cod sursa(job #219514)

Utilizator Adrian001Vladulescu Adrian Adrian001 Data 7 noiembrie 2008 09:18:49
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
var f,g:text;
    n,a,b,i:longint;

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

Begin
Assign(f,'euclid2.in');Reset(f);
Assign(g,'euclid2.out');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.