var n,i,p,b:longint;
begin
 assign(input,'fructe.in'); reset(input);
 assign(output,'fructe.out'); rewrite(output);
  readln(n);
  for i:=1 to n do begin
   readln(p,b);
   while b>1 do begin
    b:=b-2; inc(p);
   end;
   while p>1 do begin
    p:=p-2; inc(p);
   end;
   if p>b then writeln(0)
          else writeln(1);
  end;
 close(input); close(output);
end.