1 条评论
-
我是百度啦啦啦 LV 8 @ 2016-08-19 10:40:44
var
n,ans:longint;
procedure doit(t:longint);
var
i:longint;
begin
if t>0 then
for i:=1 to t do
inc(ans);
for i:=1 to t do
doit(i div 2);
end;
begin
readln(n);
doit(n div 2);
writeln(ans+1);
end.
- 1
var
n,ans:longint;
procedure doit(t:longint);
var
i:longint;
begin
if t>0 then
for i:=1 to t do
inc(ans);
for i:=1 to t do
doit(i div 2);
end;
begin
readln(n);
doit(n div 2);
writeln(ans+1);
end.
