状态: Unaccepted
测评机: Xeost[5]
得分: 90分
提交日期: 2011-8-29 16:03:00
有效耗时: 564毫秒
测试结果1: 通过本测试点|有效耗时172ms
测试结果2: 通过本测试点|有效耗时47ms
测试结果3:
测试结果4: 通过本测试点|有效耗时47ms
测试结果5: 通过本测试点|有效耗时47ms
测试结果6: 通过本测试点|有效耗时47ms
测试结果7: 通过本测试点|有效耗时63ms
测试结果8: 通过本测试点|有效耗时47ms
测试结果9: 通过本测试点|有效耗时47ms
测试结果10: 通过本测试点|有效耗时47ms
提交代码:
01.
var a:array[0..100,0..100]of longint;
02.
b:array[0..2]of longint;
03.
k,x1,x2,y1,y2,i,j:longint;
04.
begin
05.
for k:=1 to 2 do begin
06.
read(x1,y1,x2,y2);
07.
for i:=x1+1 to x2 do
08.
for j:=y1+1 to y2 do inc(a[i,j]);
09.
end;
10.
for i:=1 to 100 do
11.
for j:=1 to 100 do inc(b[a[i,j]]);
12.
writeln(b[2],' ',b[1],' ',b[0]);
13.
end.
Accepted
测评机: Xeost[5]
得分: 100分 [我要评价一下题目~]
提交日期: 2011-8-29 16:05:00
有效耗时: 579毫秒
测试结果1: 通过本测试点|有效耗时157ms
测试结果2: 通过本测试点|有效耗时47ms
测试结果3: 通过本测试点|有效耗时46ms
测试结果4: 通过本测试点|有效耗时47ms
测试结果5: 通过本测试点|有效耗时47ms
测试结果6: 通过本测试点|有效耗时47ms
测试结果7: 通过本测试点|有效耗时47ms
测试结果8: 通过本测试点|有效耗时47ms
测试结果9: 通过本测试点|有效耗时47ms
测试结果10: 通过本测试点|有效耗时47ms
提交代码:
01.
var a:array[1..100,1..100]of longint;
02.
b:array[0..2]of longint;
03.
k,x1,x2,y1,y2,i,j:longint;
04.
begin
05.
for k:=1 to 2 do begin
06.
read(x1,y1,x2,y2);
07.
for i:=x1+1 to x2 do
08.
for j:=y1+1 to y2 do inc(a[i,j]);
09.
end;
10.
for i:=1 to 100 do
11.
for j:=1 to 100 do inc(b[a[i,j]]);
12.
writeln(b[2],' ',b[1],' ',b[0]);
13.
end.