Cod sursa(job #563247)

Utilizator MercenaryPrinceRaul Zaha MercenaryPrince Data 24 martie 2011 20:21:38
Problema Algoritmul lui Euclid Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.28 kb
Raporteaza aceasta sursa 
var f,g:text;
    a,b,r,t,i:integer;
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:=a mod b;
  a:=b;
  b:=r;
  until r=0;
  writeln(g,a);
  end;
close(f);close(g);
end.