92 条题解
-
0
k103701 LV 10 @ 2008-11-05 15:34:14
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 06：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 07：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 08：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 09：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 10：答案错误... ├ 标准行输出
├ 错误行输出
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：40 有效耗时：0ms
var
a,b,n:array[1..100]of longint;
i,jin,j,k,x,y:integer;
c:string;
function pan:boolean;
var iii:integer;
begin
if k>y then exit(true);
if k=y then
for iii:=k downto 1 do
if a[iii]>n[iii] then exit(true);
exit(false);
end;
begin
read(c);
x:=length(c)mod 5;
y:=length(c)div 5;
if x0 then
val(copy(c,1,x),n[y+1]);
for i:=1 to y do
val(copy(c,(length(c)-x+2-i*5),5),n[i]);
if y+10then y:=y+1;
a[1]:=1;k:=1;i:=0;
repeat
b:=a;
i:=i+1;
for j:=1 to k do
a[j]:=a[j]*2;
for j:=1 to k do
begin
jin:=a[j]div 100000;
a[j]:=a[j]mod 100000;
a[j+1]:=a[j+1]+jin;
end;
if jin>0 then
begin
k:=k+1;
a[k]:=jin;
end;
until pan;
for i:=1 to y do
begin
jin:=n[i]-b[i];
if jin>=0then a[i]:=jin
else begin
n:=n-1;
a[i]:=jin+10;
end;
end;
for i:=1 to y do
a[i]:=a[i]*2;
for i:=1 to y do
a:=a+a[i]div 100000;
if a[y+1]0 then y:=y+1;
a[1]:=a[1]+1;
write(a[y]);
for i:=y-1 downto 1 do
if a[i]=0 then write('00000')
else if (a[i]div 10=0)then write('0000',a[i])
else if (a[i]div 100=0)then write('000',a[i])
else if (a[i]div 1000=0)then write('00',a[i])
else if (a[i]div 10000=0)then write('0',a[i])
else write(a[i]);
end. -
0
monkey-hzh LV 3 @ 2008-10-29 16:41:31
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms第 400 个AC
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms2遍才AC!看来高精要练一练了(居然是输出出错,5555)
-
0
qq624086640 LV 8 @ 2008-10-27 20:11:50
规律简单。。但是2^j不会超时吗？
-
0
AC~~~AC~~~
不用担心细节~~数组开多大都没关系~~~
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms全部秒杀！
很麻烦的水题。只要有耐心，数组开够大就能过。规律很好找。
先编个程序把1~255都列出来。
ok. -
0
ZhouYuChen LV 5 @ 2008-10-13 23:07:54
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms第100题！！！！！虽然有些小意外，不过还是庆祝一下！！！！
PS：这题的高精度好烦。 -
0
j443191910 LV 3 @ 2007-10-26 19:51:59
此题的一般性规律就在于：
输入 n;
n:=2^i+j(j
k103701
LV 10
@ 2008-11-05 15:34:14
