Cod sursa(job #528187)

Utilizator dutzu93Vlad Vedinas dutzu93 Data 2 februarie 2011 12:40:21
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.45 kb
var
    t,a,b,i:longint;


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