var f,g:text;i,t:byte;m,n:longint;
begin 
assign(f,'fructe.in');reset( f);
assign(g,'fructe.out');rewrite(g);
readln(f,t);
For i:=1 to t do 
readln(f,m,n);
if n mod 2 = 0 then 
writeln(g,'1') else writeln(g,'0');
close(f);
close(g);
end.