比赛代码 - COGS

比赛	20140713下午练习	评测结果	AAAAAAAAAA
题目名称	比特	最终得分	100
用户昵称	甘罗	运行时间	0.047 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-07-13 15:12:23

显示代码纯文本

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.