var fi,fo:text;
    t,i,p,b:longint;
begin
  assign(fi,'fructe.in'); reset(fi);
  assign(fo,'fructe.out'); rewrite(fo);
  read(fi,t);
  for i:=1 to t do
    begin
      read(fi,p,b);
      if (p>b)and(b=1) then writeln(fo,'1')
         else
           if b and 1=0 then writeln(fo,'0')
                        else writeln(fo,'1');
    end;
  close(fi);
  close(fo);
end.