Cod sursa(job #637178)

Utilizator StarPantherTeuca Sergiu StarPanther Data 20 noiembrie 2011 12:38:00
Problema Algoritmul lui Euclid Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.49 kb
program asdadadad;
VAR f,g:text;
    t,a,b:longint;
    r:integer;
Begin
        Assign(f,'euclid2.in');Reset(f);
        Assign(g,'euclid2.out');Rewrite(g);
        readln(f,t);
        while not eof(f) do begin
                readln(f,a,b);
                r:=1;
                while r<>0 do begin
                        r:=a mod b;
                        a:=b;
                        b:=r;
                end;
                writeln(g,a);
        end;
Close(f);Close(g);
end.