var f,g:text;
    n,i,p,b:longint;
begin
assign(f,'fructe.in'); reset(f);
assign(g,'fructe.out'); rewrite(g);

readln(f,n);

for i := 1 to n do begin
         readln(f,p,b);
         if b mod 2 = 1 then writeln(g,'1') else
                             writeln(g,'0');
                    end;

close(f);
close(g);

end.