program usor;
var t,f:longint;
begin
assign(input,'fructe.in');
reset(input);
read(input,t);
assign(output,'fructe.out');
rewrite(output);
while t<>0 do begin
    dec(t);
    read(input,f,f);
    if f mod 2=0 then writeln(output,'0')
    else writeln(output,'1');
    end;
close(input);
close(output);
end.