Cod sursa(job #521979)

Utilizator leu_raduLeu Radu leu_radu Data 13 ianuarie 2011 22:08:05
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
var a,b,aux,t:longint;

begin
 assign(input,'euclid2.in');
 assign(output,'euclid2.out');
 reset(input);
 rewrite(output);
 readln(t);
 while t<>0 do
  begin
   readln(a,b);
   while b<>0 do
     begin
        aux:=(a mod b);
        a:=b;
        b:=aux;
     end;
   writeln(a);
   t:=t-1;
  end;
 close(input);
 close(output);
end.