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