Cod sursa(job #590550)

Utilizator RainDropsMDMinzelevschi Igori RainDropsMD Data 18 mai 2011 10:43:01
Problema Algoritmul lui Euclid Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.51 kb
type natural=0..maxint;

var f,g:text;
    a,b,r,n,i:natural;

function cmmdc(a,b:natural):natural;
begin
 if a=b then cmmdc:=a
        else if a>b then cmmdc:=cmmdc(a-b,b)
                    else cmmdc:=cmmdc(a,b-a)
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);
                   r:=cmmdc(a,b);
                   writeln(g,r);
                  end;
 close(f);
 close(g);
End.