记录编号 108907 评测结果 AAAAAAAAAA
题目名称 [NOIP 2011]铺地毯 最终得分 100
用户昵称 Gravatar传奇 是否通过 通过
代码语言 Pascal 运行时间 0.027 s
提交时间 2014-07-06 21:12:30 内存使用 0.17 MiB
显示代码纯文本
program cojs620;
var
  x,y,x1,y1,i:longint;
  c1,c2:longint;
  n:longint;
  ans:longint;
begin
  assign(input,'carpet.in');
  assign(output,'carpet.out');
  reset(input);
  rewrite(output);

  readln(n);
  for i:=1 to n do
    readln;
  readln(c1,c2);
  reset(input);
  readln(n);
  ans:=-1;
  for i:=1 to n do
    begin
	  readln(x,y,x1,y1);
	  if (c1>=x)and(c2>=y)and(c1<=x+x1)and(c2<=y+y1)then
	    ans:=(i);
	end;
  writeln(ans);

  close(input);
  close(output);
end.