sky001231吧 关注:1贴子:10
  • 0回复贴,共1
var
ans,t1,t2:int64;
t,z,n,i:longint;
function sg(x,y:int64):int64;
var
i,j,tmp1,tmp2:int64;
begin
i:=2;
j:=0;
while true do
begin
tmp1:=x mod i;
tmp2:=y mod i;
if (tmp1>0) and (tmp1<=i div 2) and (tmp2>0) and (tmp2<=i div 2) then
break;
inc(j);
i:=i*2;
end;
sg:=j;
end;
begin
read(t);
for z:=1 to t do
begin
read(n);
ans:=0;
for i:=1 to n div 2 do
begin
read(t1,t2);
ans:=ans xor sg(t1,t2);
end;
if ans=0 then
writeln('NO')
else
writeln('YES');
end;
end.


1楼2016-11-16 20:20回复