Cod sursa(job #624804)

Utilizator boby301Bogdan Bacila boby301 Data 22 octombrie 2011 20:55:50
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.4 kb
var x,y,cmmdc,n,i:longint;
    f,g:text;

function gcd(a:longint;b:longint):longint;
var r:longint;

 begin
  r:=a mod b;
  if r<>0 then
     gcd:=gcd(b,r)
    else
     gcd:=b;
 end;

begin
assign(f,'euclid2.in');assign(g,'euclid2.out');
reset(f);rewrite(g);
read(f,n);
  for i:=1 to n do
  begin
  read(f,x,y);
  cmmdc:=gcd(x,y);
  writeln(g,cmmdc);
  end;
close(f);close(g);
end.