Cod sursa(job #741251)

Utilizator RadioactivMihai Preguza Radioactiv Data 25 aprilie 2012 19:24:14
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: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 x<>y do
      if x>y
        then
          x:=x-y
        else
          y:=y-x;
  writeln(x);
  end;
Close(input);
Close(output);
END.