- 铺地毯
-
zhshcheng1 LV 8 @ 2012-10-07 00:02:20
var
n,a,b,g,k,x,y:longint; o,t,q:longint;
e:array[1..100000,1..100000] of longint;
begin
read(n);
for o:=1 to n do begin
read(a,b,g,k);
for t:=a to a+g do
for q:=b to b+k do e[t,q]:=o;
end;
read(x,y);
if e[x,y]>0 then write(e[x,y])
else write('-1');
end.
2 条评论
-
610960320 LV 8 @ 2013-10-22 08:14:14
read全部改成readln
-
@ 2012-10-08 22:19:49
...
我也是这个问题，不知道为什么
- 1
