Cod sursa(job #917579)

Utilizator toncuvasileToncu Vasile toncuvasile Data 18 martie 2013 09:28:27
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.34 kb
Raporteaza aceasta sursa 
program p1;
var x,y,aux:longint;
    i,w:longint;
    fi,fo:text;

begin
assign(fi,'euclid2.in');
reset(fi);
assign(fo,'euclid2.out');
rewrite(fo);
readln(fi,w);

for i:=w downto 1 do
  begin
   readln(fi,x,y);
   repeat
     aux:=x;
     x:=y;
     y:=aux mod y;
   until y=0;
   writeln(fo,x);

  end;

close(fo);
end.