var a:array[1..100] of integer;
   f:text; n:longint; p,b:qword; i:integer;
  procedure cit;
    begin
  assign(f,'fructe.in');
  reset(f);
  readln(f,n);
  for i:=1 to n do
     begin
     readln(f,p,b);
     if b mod 2=1 then a[i]:=1 else a[i]:=0;
     p:=0; b:=0;
     end;
  close(f);
   end;
  procedure afisare;
    begin
    assign(f,'fructe.out');
    rewrite(f);
    for i:=1 to n do
    writeln(f,a[i]);
    close(f);
    end;
begin
   cit;
   afisare;
end.
end.