Cod sursa(job #741260)

Utilizator RadioactivMihai Preguza Radioactiv Data 25 aprilie 2012 19:41:35
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
var x,y,n,i,t:longint;

BEGIN
assign(input,'euclid2.in');
reset(input);
readln(n);
assign(output,'euclid2.out');
rewrite(output);
for i:=1 to n do
  begin
    readln(x,y);
    while y<>0 do
      begin
      t:=x mod y;
      x:=y;
      y:=t;
      end;
    writeln(x);
  end;
Close(input);
Close(output);
END.