Program fructe;
var p,b:array[1..100] of int64;
    i:longint;
    t:int64;
    f,q:text;
begin
assign(f,'fructe.in');
reset(f);
assign(q,'fructe.out');
rewrite(q);
readln(f,t);
    for i:=1 to t do
    begin
    readln(f,p[i],b[i]);
    end;
 for i:=1 to t do
 begin
        if b[i] mod 2=0 then writeln(q,1)
                        else writeln(q,0);
 end;
close(f);
close(q);
end.