Cod sursa(job #156897)

Utilizator andrici_cezarAndrici Cezar andrici_cezar Data 12 martie 2008 19:46:03
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.28 kb
Raporteaza aceasta sursa 
program p12;
var a,b,r,t,i,j:longint;
    f,g:text;
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);
repeat
      r:=b mod a;
      b:=a;
      a:=r;
until r=0;
writeln(g,b);
end;
close(g);
end.