Pagini recente » Cod sursa (job #2138688) | Cod sursa (job #340952) | Cod sursa (job #1666193) | Cod sursa (job #2626628) | Cod sursa (job #572904)
Cod sursa(job #572904)
program cmmdc_perechidenumere;
var c,n,x,y:longint;
d,o:text;
function cmmdc(a,b:longint):longint;
begin
while a<>b do
if a<b then b:=b div a
else a:=a div b;
cmmdc:=a;
end;
begin
assign(d,'euclid2.in');assign(o,'euclid2.out');
reset(d);rewrite(o);
readln(d,n);
for c:=1 to n do
begin
read(d,x);read(d,y);
writeln(o,cmmdc(x,y));
end;
close(d);close(o);
end.