Cod sursa(job #528189)

Utilizator dutzu93Vlad Vedinas dutzu93 Data 2 februarie 2011 12:43:09
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.44 kb
var
    t,a,b,i:longint;
    f,g:text;


function cmmdc(a,b:longint):longint;
    begin
        if b=0 then begin cmmdc:=a; end
        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
            readln(f,a,b);
            writeln(g,cmmdc(a,b));
        end;
    close(f);
    close(g);
end.