Program htr;
uses crt;
var a,b:integer;

function rec(num:integer):integer;
 var arg1,arg2:integer;
 begin
 arg1:=num div 2;
 arg2:=num-arg1;
 case num of
  1:rec:=1;
  0:rec:=0;
  else
  if arg1=arg2 then rec:=rec(arg1)
  else rec:=rec(arg1)+rec(arg2);
  end;
 end;

begin
clrscr;
readln(a);
b:=rec(a);
writeln(b);
repeat until keypressed;
end.