Cod sursa(job #1741034)

Utilizator mihaitamoglanmihai moglan mihaitamoglan Data 12 august 2016 20:20:00
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.19 kb
Raporteaza aceasta sursa 
var i,j,k,x,y,n,aux:longint;
begin
read(n);
for i:=1 to n do
 begin
  read(x,y);
  while y<>0 do
   begin
    aux:=y;
    y:=x mod y;
    x:=aux;
   end;
  writeln(x);
 end;
end.