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