Cod sursa(job #183199)

Utilizator alex-Palex puscas alex-P Data 21 aprilie 2008 20:26:57
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.41 kb
var f,g:text;
    a,b:longint;
    t,i:integer;

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'); reset(f);
     assign(g,'euclid2.out'); rewrite(g);
     readln(f,t);
     for i:=1 to t do
         begin
              read(f,a,b);
              write(g,cmmdc(a,b));
         end;
     close(g);close(f);
end.