Cod sursa(job #917568)

Utilizator toncuvasileToncu Vasile toncuvasile Data 18 martie 2013 09:20:25
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.37 kb
program p1;
var x,y:longint;
    i,w:word;
    fi,fo:text;

function cmd(a,b:longint):longint;
begin
  if b=0 then cmd:=a
         else cmd:=cmd(b, a mod b);
end;

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

for i:=1 to w do
  begin
   readln(fi,x,y);
   writeln(fo,cmd(x,y))
  end;

close(fo);
end.