比赛代码 - COGS

比赛	20140713下午练习	评测结果	AAAAAAAAAA
题目名称	比特	最终得分	100
用户昵称	转瞬の电流	运行时间	0.359 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-07-13 15:05:31

显示代码纯文本

var
n,m,i:longint;
c:int64;
a,b:shortint;
begin
assign(input,'bita.in');
assign(output,'bita.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
m:=i;
while m<>0 do
begin
a:=m mod 2;
if a=1 then
begin
inc(b);
if b=2 then begin inc(c); b:=1; end;
end else
b:=0;
m:=m div 2;
end;
b:=0;
end;
writeln(c);
close(input);
close(output);
end.