var  t,i:shortint;
procedure citire_paritate;
var p,b:longint;
begin
readln (input,p,b);
if b mod 2=0 then
writeln(output,0)
else
writeln (output,1);
end;
begin
assign (input,'fructe.in');
reset (input);
readln (input,t);
assign (output,'fructe.out');
rewrite (output);
for i:=1 to t do
citire_paritate;
close (input);
close (output);
end.