WZMMM 2013-07-20 07:50:00
点我顶贴
收藏
删除
var
a:array[1..12]of integer;
i,f,t:integer;
begin
for i:=1 to 12 do
read(a[i]);
f:=300-a[1];
if f>=100 then
while f>100 do
begin
t:=t+100;
f:=f-100;
end;
if f<=0 then
begin
write(’-1’);
exit;
end;
for i:=2 to 12 do
begin
f:=f+300-a[i];
if f>=100 then
while f>100 do
begin
t:=t+100;
f:=f-100;
end;
if f<=0 then
begin
write(’-’,i);
exit;
end;
end;
write(f+t*120/100:0:0);
end.
#1 WZMMM@2009-01-21 23:47:00
10046
回复
删除
测试结果1: 通过本测试点|有效耗时172:ms
测试结果2: 测试结果错误.错误结果为:-7
正确结果应为:1580
测试结果3: 通过本测试点|有效耗时78:ms
测试结果4: 通过本测试点|有效耗时63:ms
测试结果5: 通过本测试点|有效耗时63:ms
测试结果6: 通过本测试点|有效耗时47:ms
测试结果7: 通过本测试点|有效耗时46:ms
测试结果8: 通过本测试点|有效耗时62:ms
测试结果9: 通过本测试点|有效耗时63:ms
测试结果10: 通过本测试点|有效耗时62:ms