Program fructe;
var p,b:array[1..100] of int64;
    i:longint;
    t,x,y: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,x,y);
    p[i]:=x;
    b[i]:=y;
    end;
 for i:=1 to t do
 begin
        while (p[i]>0) and (b[i]>0) do
        begin
        p[i]:=p[i]-1;
        end;
           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.