program parity_digits (input, output);
uses crt;
 var fin, fout:text;
     num_1s: integer;
     x: integer;
     r: integer;
     count: integer;
 begin
  assign (fin,'DATA3.txt');
  reset (fin);
  assign (fout,'OUT3.txt');
  rewrite (fout);
  for  count:= 1 to 5 do
  begin
  readln (fin,x);
  num_1s:=0;
  repeat
   r:= x mod 2;
   if r=1 then
    begin
     num_1s:=num_1s + 1;
    end;
   x:=x div 2;
  until x=0;

  if num_1s mod 2>0 then
   writeln (fout,'1')
  else
   writeln (fout,'0');
  end;
   close(fout);
end.