DFS 2008-06-09 22:33:00
点我顶贴
收藏
删除
program n29_1；
var
t,n,k,a,i,f:longint；
begin
readln(t)；
for i:=1 to t
do begin
readln(n,k)；
f:=0；
a:=n；
while a>1
do begin
a:=a div 2；
inc(f,a)；
end；
a:=k；
while a>1
do begin
a:=a div 2；
dec(f,a)；
end；
a:=n-k；
while a>1
do begin
a:=a div 2；
dec(f,a)；
end；
if f>0
then if i=t then write(0) else writeln(0)
else if i=t then write(1) else writeln(1)
end；
end.