讨论 / 额……为什么90分
槟榔 2011-09-08 23:32:00
点我顶贴 收藏 删除
i,j,b,c,d:integer;

begin

fillchar (a,sizeof(a),0);

b:=0;

c:=0;

d:=0;

for i:=1 to 4 do

for j:=1 to 2 do

read(x[i,j]);

for i:= x[1,2]+1 to x[2,2] do

for j:= x[1,1]+1 to x[2,1] do

inc(a[i,j]);

for i:= x[3,2]+1 to x[4,2] do

for j:= x[3,1]+1 to x[4,1] do

inc(a[i,j]);

for i:=1 to 100 do

for j:=1 to 100 do

case a[i,j] of

2:inc(b);

1:inc(c);

end;

d:=100*100-b-c;

write(b,' ',c,' ',d);

end.

MS是3错了

状态: Unaccepted

测评机: Xeond[6]

得分: 90分

提交日期: 2011-9-7 13:03:00

有效耗时: 750毫秒

RQNOJ近期在线比赛列表

RQNOJ九月份月赛 时间:2011-9-24 18:30:00 [报名]

测试结果1: 通过本测试点|有效耗时235ms

测试结果2: 通过本测试点|有效耗时156ms

测试结果3: 测试结果错误.错误结果为:0 188 9812

正确结果应为:0 194 9806

测试结果4: 通过本测试点|有效耗时47ms

测试结果5: 通过本测试点|有效耗时47ms

测试结果6: 通过本测试点|有效耗时46ms

测试结果7: 通过本测试点|有效耗时47ms

测试结果8: 通过本测试点|有效耗时63ms

测试结果9: 通过本测试点|有效耗时62ms

测试结果10: 通过本测试点|有效耗时47ms

#1 Mamba24@2011-09-08 23:32:00
回复 删除
有超出的区域吧
查看更多回复
提交回复