记录编号	69643	评测结果	AAAAAAAAAA
题目名称	[Tyvj 1236] 比特	最终得分	100
用户昵称	苏轼	是否通过	通过
代码语言	Pascal	运行时间	0.047 s
提交时间	2013-09-19 16:17:55	内存使用	0.17 MiB

PRogram sl;
  var
    n,i,x,s:longint;
  begin
    assign(input,'bita.in');
    reset(input);
    assign(output,'bita.out');
    rewrite(output);
    read(n);
    for i:=1 to n do
      begin
        x:=(i<<1)and i;;
        while x>0 do
          begin
            x:=x-(x and(-x));
            inc(s);
          end;
      end;
    writeln(s);
    close(input);
    close(output);
  end.