#1 WZMMM@2009-01-22 00:28:00
10050
回复
删除
测试结果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
#2 0*1@2013-08-10 22:39:00
30669
回复
删除
const
j=1/2/3/4/5/6/7/8/9/10/11/12;
var
a:array[1..12]of longint;
begin
for i:=1 to 12 do
readln(a[i]);
writeln(a[j]);
end.
#5 0*1@2013-08-10 22:43:00
30672
回复
删除
var
i,t,y:integer;
a:array[1..12]of integer;
begin
t:=0;
y:=0;
for i:=1 to 12 do
begin
readln(a[i]);
a[i]:=300-a[i]+y;
if a[i]<0 then begin writeln(-i); halt; end;
if a[i]>=100 then begin t:=t+(a[i] div 100); y:=a[i] mod 100; end;
end;
writeln(t*120+y);
end.
帮我看看