记录编号	197516	评测结果	AAAAAAAAAA
题目名称	[Tyvj 1236] 比特	最终得分	100
用户昵称	VacaTionGOD	是否通过	通过
代码语言	Pascal	运行时间	1.946 s
提交时间	2015-10-23 23:29:04	内存使用	0.17 MiB

type
  arr=array[1..5000] of byte;
var
  n,i,ans:longint;
  a:arr;
function get(a:arr;k:longint):longint;
var i,j:longint;
begin
  j:=0;
  for i:=1 to k-1 do
   if (a[i]=a[i+1])and(a[i]=1) then inc(j);
  get:=j;
end;
function switch(n:longint):longint;
var i:longint;
begin
  i:=0;
  fillchar(a,sizeof(a),0);
  while n<>0 do
   begin
     inc(i);
     a[i]:=n mod 2;
     n:=n div 2;
   end;
  switch:=get(a,i);
end;
begin
assign(input,'bita.in');
reset(input);
assign(output,'bita.out');
rewrite(output);
  readln(n);
  for i:=1 to n do
   ans:=ans+switch(i);
  writeln(ans);
close(input);
close(output);
end.