Cod sursa(job #917582)

Utilizator ctlin04UAIC.VlasCatalin ctlin04 Data 18 martie 2013 09:31:13
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.3 kb
Raporteaza aceasta sursa 
Program euclid;
 var t,a,b,i,r:longint;
     fi,fo: text;
begin
 assign(fi,'euclid2.in');
  reset(fi);
 assign(fo,'euclid2.out');
  rewrite(fo);
 readln(fi,t);
 for i:=1 to t do begin
 readln(fi,a,b);
 repeat
  r:=a mod b;
  a:=b; b:=r;
  until r=0;
  writeln(fo,a);
  end;
 close(fo);
end.