记录编号 115106 评测结果 AAAAAAAAAA
题目名称 [NOIP 2011]铺地毯 最终得分 100
用户昵称 GravatarFoolMike 是否通过 通过
代码语言 Pascal 运行时间 0.024 s
提交时间 2014-08-13 21:31:58 内存使用 0.32 MiB
显示代码纯文本
var
a,b,g,k:array[1..10000]of longint;
n,x,y,c,d:longint;
begin
assign(input,'carpet.in');
assign(output,'carpet.out');
reset(input);
rewrite(output);
readln(n);
for d:=1 to n do
readln(a[d],b[d],g[d],k[d]);
readln(x,y);
for d:=n downto 1 do
if (x-a[d]<=g[d])and(x-a[d]>=0)and(y-b[d]>=0)and(y-b[d]<=k[d])then
  begin
  write(d);exit;
  end;
if c=0 then write('-1');
close(input);close(output);
end.