dorothy 2012-07-12 20:31:00
点我顶贴
收藏
删除
var
a,b,g,k:array[0..1000000] of longint;
x,y,i,n:longint;
begin
readln(n);
for i:=1 to n do readln(a[i],b[i],g[i],k[i]);
readln(x,y);
for i:=1 to n do
if(a[i]<=x) and (x<=(a[i]+g[i])) and (b[i]<=y) and (y<=(b[i]+k[i])) then
begin
writeln(i);
halt;
end;
writeln('-1');
end.
帮忙看看哪里出问题了……感谢
只通过3个点