program p1059;var n,ans:longint; procedure main(w:longint); var i:longint; begin inc(ans); if w>1 then for i:=1 to w div 2 do main(i); end;begin repeat readln(n); ans:=0; main(n); writeln(ans); until seekeof;end.