var
	fi, fo : text;
  n, b, p, i : longint;
begin
	assign(fi,'fructe.in'); reset(fi);
  assign(fo,'fructe.out'); rewrite(fo);
  readln(fi,n);
  for i := 1 to n do
  	begin
    	readln(fi,p,b);
      if odd(b) then
      	writeln(fo, 1)
      else
      	writeln(fo, 0);
    end;
  close(fi); close(fo);
end.