记录编号 |
108907 |
评测结果 |
AAAAAAAAAA |
题目名称 |
[NOIP 2011]铺地毯 |
最终得分 |
100 |
用户昵称 |
传奇 |
是否通过 |
通过 |
代码语言 |
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.