var f,g:text; t,i,p,b:longint;
begin
assign(f,'fructe.in');reset(f);
read(f,t);
assign(g,'fructe.out'); rewrite(g);
close(g);
for i:=1 to t do begin
assign(g,'fructe.out'); append(g);
read(f,p,b);
repeat
if b>1 then begin b:=b-2; p:=p+1; end
		   else p:=p-1;
until (p=0) or (b=0);
if p=0 then writeln(g,1)
       else writeln(g,0);
close(g);
end;
close(f);
end.