53 条题解
-
0
李肥888 LV 10 @ 2009-08-04 23:06:35
托{行}小牛的福，AC了。。。。
超短。。。
晒一晒。。=======================晒程序========================
var
n,ans:longint;
begin
readln(n);
while n>0 do begin
inc(ans,(n+1) shr 1);
n:=n shr 2;
end;
writeln(ans);
end.刚刚好十行。。。。。。
暴汗⊙﹏⊙b汗。。。。。。。。。。。。 -
0
qyjubriskxp LV 10 @ 2009-07-30 18:16:58
本来这题没什么好写的，
但是还是要庆祝ac的第100题 -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms#include "stdio.h"
int work(int x)
{
if(x==0) return 0;
else
return (x+1)/2+work(x/4);
}
int main()
{
int n;
scanf("%d",&n);
printf("%d",work(n));
return 0;
} -
0
贪心……没来及证明……不过对了！
{——————————————————————————————}编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
var
n,mid,sum:longint;
begin
read(n);
sum:=0;
while n0 do
begin
if odd(n) then mid:=(n+1) div 2
else mid:=(n+1) div 2+1;
sum:=sum+(n-mid+1);
if odd(mid) then n:=mid div 2
else n:=mid div 2-1;
end;
writeln(sum);
end. -
0
why19931123 LV 10 @ 2008-08-22 08:57:40
感谢各位大牛!!!
我一次AC了!!!
李肥888
LV 10
@ 2009-08-04 23:06:35
