var

x,y,ch,ku:array[1..10000] of integer;

i,j,k,n,x0,y0:longint;

begin

readln(n);

for i:=1 to n do readln(x[i],y[i],ch[i],ku[i]);

readln(x0,y0);

for i:=n downto 1 do

if (x0>=x[i]) and (y0>=y[i]) and (x0<=(x[i]+ch[i])) and (y0<=(y[i]+ku[i])) then begin writeln(i); halt; end;

writeln(-1);

end.

测评机： Xeost[5]

得分： 60分

提交日期： 2012-8-5 18:23:00

有效耗时： 1016毫秒

测试结果1: 通过本测试点|有效耗时188ms

测试结果2: 通过本测试点|有效耗时156ms

测试结果3: 通过本测试点|有效耗时172ms

测试结果4: 通过本测试点|有效耗时172ms

测试结果5: 通过本测试点|有效耗时172ms

测试结果6: 通过本测试点|有效耗时156ms

测试结果7: 测试结果错误.错误结果为:1305

正确结果应为:1306

测试结果8:测试结果错误.错误结果为:4571

正确结果应为:4573

测试结果9:测试结果错误.错误结果为:6311

正确结果应为:6312

测试结果10:测试结果错误.错误结果为:6821

正确结果应为:6823

x,y,ch,ku:array[1..10000] of integer-----改成longint即可