30，答案过长是什么原因？？？？

就出题一人ac

30封顶了么?

占位

感谢sxpeter，30变成了90分

第二个点。。。

简单题

大家这一题别想复杂了

= =|地下室

看不到题目。

为什么总是40分？？？？？

请大牛帮忙看看～～～

谢！

program basketball;

var

ji,yun,shi:extended;

posibility:extended;

shou,yunqi,zhuang,jichu:extended;

fen:longint;

temp:string;

simple:array[1..300]of integer;

i,j,n,k,l:longint;

begin

readln(n);

k:=trunc(ln(n)/ln(2));

posibility:=1;

for i:=1 to k do

begin

readln(ji,yun,shi);

posibility:=posibility*(ji*yun*shi/1000000);

end;

posibility:=posibility*100;

writeln(posibility:0:2); //我实在不相信上面有问题，但好像真的有问题……

fen:=0;

for i:=1 to k do

begin

readln(shou,yunqi,zhuang,jichu);

fen:=fen+trunc(shou*yunqi*zhuang*jichu/1000000+jichu);

end;

readln(l);

readln(temp);

if not( temp[1]='-') then //以下是高精度

begin

l:=length(temp);

for i:=1 to l do simple[i]:=ord(temp[l-i+1])-48;

simple[1]:=simple[1]+fen;

for i:=1 to l do if simple[i]>10 then

begin

simple:=simple+simple[i] div 10;

simple[i]:=simple[i] mod 10;

end;

while simple[l+1]>0 do l:=l+1;

for i:=l downto 1 do write(simple[i]);

writeln;

end;

if temp[1]='-' then

begin

l:=length(temp)-1;

for i:=2 to l+1 do simple:=ord(temp[l+2-i+1])-48;

simple[1]:=simple[1]-fen;

for i:=1 to l do if simple[i]0 do l:=l+1;

if simple[l]>0 then

begin

write('-');

for i:=l downto 1 do write(simple[i]);

end

else

for i:=l downto 1 do write(abs(simple[i]));

writeln;

end;

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案错误...　├ 标准行输出 ...9314072...

　├ 错误行输出 ...9313107...

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案错误...　├ 标准行输出 1.57

　├ 错误行输出 1123

├ 测试数据 07：答案错误...　├ 标准行输出 8475...

　├ 错误行输出 1658

├ 测试数据 08：答案错误...　├ 标准行输出 19....

　├ 错误行输出 658

├ 测试数据 09：答案错误...　├ 标准行输出 0.53

　├ 错误行输出 1202

├ 测试数据 10：答案错误...　├ 标准行输出 0.00

　├ 错误行输出 1205

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：40 有效耗时：0ms