d619: 奇摩知识+

内容 ：

           不爽写程式的小光，转换地方，开始为奇摩知识+奉献，突然与腿肌同学，发现了某个人所提出来的问题，并展开激烈的讨论，最后终于...?

          不过此问题，是某个测试系统的题目...               

*** *** **********  //有意义的消音，多半是脏话...

题目描述
         大家都知道二进制是由0和1两种数字组成的,十进制转二进制, 小明现在要玩一个游戏, 就是由1数到n,每数到一个数, 这个数的二进制有多少个1, 小明就要站起多少次, 例如数到9, 由于其二进制为1001, 所以小明要站起来两次, 为了知道自己能否应付这个游戏, 请你为小明算出, 由1数到n他必须站起来多少次?
输入格式
     n (1--1000000)
输出格式
    小明总共要站起来的次数
样例输入
12
样例输出
22

输入说明 ：

每一行有一个数字N (1≦N≦1,0000,0000)

输出说明 ：

请输出小明总共要站起来的次数。请输出mod 1000000000 之后的结果

范例输入 ：

若题目没有特别说明，则应该以多测资的方式读取，若不知如何读取请参考 a001 的范例程式。

12

 

范例输出 ：

22

提示 ：

※　题目管理员，可能会消失很久，投诉可能要等到

 

 

012345678910111201101110010111011101121223122322^02^12^22^301245791213151720221412f(x)=2*f(x-1)+2^(x-1)          

 

program Project1;const max=1000000000;var a,f:array[1..100]of longint; i,n,res,t:longint;procedure stand(n,m:longint);var i,t:longint;begin for i:=0 to 100 do if a[i]>n then begin t:=i-1;break; end; res:=(res+f[t]+m*a[t])mod max; if a[t]<>n then stand(n-a[t],m+1);end;begin a[0]:=1; for i:=1 to 100 do a[i]:=a[i-1]*2 mod max; f[0]:=0; for i:=1 to 100 do f[i]:=(2*f[i-1]+a[i-1])mod max; while not eof do begin readln(n); n:=n+1; for i:=0 to 100 do if a[i]>n then begin t:=i-1;break; end; res:=f[t]; if a[t]<>n then stand(n-a[t],1); writeln(res); end;end.