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