Program fructe;
var p,b:array[1..100] of int64;
    i:longint;
    t:int64;
    f,q:text;
begin
assign(f,'fructe.in');
reset(f);
assign(q,'fructe.out');
rewrite(q);
readln(f,t);
    for i:=1 to t do
    begin
    readln(f,p[i],b[i]);
    end;
 for i:=1 to t do
 begin
        while p[i]>0 do p[i]:=p[i]-1;
         while b[i]>1 do
           begin
                if p[i]=0 then
                 begin
                 p[i]:=p[i]+1;
                 b[i]:=b[i]-2;
                 end
                        else begin
                          b[i]:=b[i]+1;
                           end;
           end;
 if p[i]>0 then writeln(q,0)
           else writeln(q,1);
 end;
close(f);
close(q);
end.