记录编号 81762 评测结果 AAAAAAAAAA
题目名称 [NOIP 2011]铺地毯 最终得分 100
用户昵称 GravatarTA 是否通过 通过
代码语言 Pascal 运行时间 0.003 s
提交时间 2013-11-17 20:29:13 内存使用 0.03 MiB
显示代码纯文本
var
 i,x,y:longint;
 a,b,g,k:array[1..10000] of longint;
 n:integer;
begin
 assign(input,'carpet.in');
 assign(output,'carpet.out');
 reset(input);
 rewrite(output);
 //while not(eof) do
  //begin
   readln(n);
   for i:=1 to n do
    readln(a[i],b[i],g[i],k[i]);
   readln(x,y);
   for i:=n downto 1 do
    if (x-a[i]<=g[i]) and (x-a[i]>=0) and (y-b[i]<=k[i]) and (y-b[i]>=0) then
      begin
       writeln(i);
       exit;
      end;
   writeln(-1);
  //end;
 close(input);
 close(output);
end.