Cod sursa(job #602401)

Utilizator ctlin04UAIC.VlasCatalin ctlin04 Data 11 iulie 2011 12:59:47
Problema Algoritmul lui Euclid Scor 100
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.