Cod sursa(job #928516)

Utilizator vicciuvic ciu vicciu Data 26 martie 2013 14:47:13
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
var
i,j,k,l,m,n:longint;
ini,ou:text;
begin
 assign(ini,'euclid2.in');
 reset(ini);
 assign(ou,'euclid2.out');
 rewrite(ou);
 read(ini,n);
  for i:=1 to n do
  begin
  readln(ini,l,m);
  if l<m then begin k:=l; l:=m; m:=k; end;
   repeat
   k:=l mod m;
   l:=m;
   m:=k;
   until m=0;
  writeln(ou,l);
  end;
 close(ou);
 close(ini);
end.