比赛 20140713下午练习 评测结果 AAAAAAAAAA
题目名称 比特 最终得分 100
用户昵称 明天 运行时间 0.172 s
代码语言 Pascal 内存使用 0.17 MiB
提交时间 2014-07-13 16:21:07
显示代码纯文本
var
  n,i,ans:longint;

procedure solve(x:longint);
var
  p:longint;
  t:longint;
  f:boolean;
begin
  f:=false;
  while x>0 do
  begin
    t:=x and 1;
	if t=1 then
	begin
	  if f then inc(ans);
	  f:=true;
	end
	else f:=false;
	x:=x shr 1;
  end;
end;

begin
  assign(input,'bita.in'); reset(input);
  assign(output,'bita.out'); rewrite(output);
  
  readln(n);
  ans:=0;
  for i:=1 to n do
    solve(i);
	
  writeln(ans);
  
  close(input); close(output);
end.