program fructe;
var f,g:text;
    p,b:longint;
    t,i:word;
procedure fisier;
begin
 assign (f,'fructe.in');
 assign (g,'fructe.out');
 reset(f);
 rewrite(g);
end;
procedure citire;
begin
 readln(f,t);
end;
procedure citire2;
begin
 readln(f,p,b);
end;
function verificare:word;
begin
 if b mod 2=0 then
   verificare:=0
 else
   verificare:=1;
end;
procedure test;
begin
 for i:=1 to t do
  begin
   citire2;
   writeln(g,verificare);
  end;
end;

begin
 fisier;
 citire;
 test;
 close(f);
 close(g);
end.