Cod sursa(job #556935)

Utilizator ForkeySandoiu Fernando Forkey Data 16 martie 2011 13:12:28
Problema Algoritmul lui Euclid Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.46 kb
program cmmdc;
var a,b,d,i:integer;
    n:longint;
    f,g:text;
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);
    read(f,n);
    for i:=1 to n do
        begin
           read(f,a,b);
           d:=cmmdc(a,b);
           writeln(g,d);
        end;
    close(f);close(g);
end.