记录编号 108907 评测结果 AAAAAAAAAA
题目名称 [NOIP 2011]铺地毯 最终得分 100
用户昵称 Gravatar传奇 是否通过 通过
代码语言 Pascal 运行时间 0.027 s
提交时间 2014-07-06 21:12:30 内存使用 0.17 MiB
显示代码纯文本
  1. program cojs620;
  2. var
  3. x,y,x1,y1,i:longint;
  4. c1,c2:longint;
  5. n:longint;
  6. ans:longint;
  7. begin
  8. assign(input,'carpet.in');
  9. assign(output,'carpet.out');
  10. reset(input);
  11. rewrite(output);
  12.  
  13. readln(n);
  14. for i:=1 to n do
  15. readln;
  16. readln(c1,c2);
  17. reset(input);
  18. readln(n);
  19. ans:=-1;
  20. for i:=1 to n do
  21. begin
  22. readln(x,y,x1,y1);
  23. if (c1>=x)and(c2>=y)and(c1<=x+x1)and(c2<=y+y1)then
  24. ans:=(i);
  25. end;
  26. writeln(ans);
  27.  
  28. close(input);
  29. close(output);
  30. end.