Cod sursa(job #624804)
Utilizator | Bogdan 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.