设f[i]表示i个鼹鼠出现后，打死鼹鼠的最大值 。
1<=j
var i,m,n:longint;
t,x,y,f:
array[
0..
10001]
of longint;
function max(a,b:longint):longint;
begin
if a>b
then exit(a)
else exit(b);
end;
procedure main;
var i,j,ans:longint;
begin
for i:=
1 to m
do f[i]:=
1;
for i:=
1 to m
do
for j:=
1 to i-
1 do
if (abs(x[i]-x[j])+abs(y[i]-y[j])<=t[i]-t[j])
then f[i]:=max(f[i],f[j]+
1);
ans:=
0;
for i:=
1 to m
do ans:=max(ans,f[i]);
writeln(ans);
end;
begin
readln(n,m);
for i:=
1 to m
do readln(t[i],x[i],y[i]);
main;
end.
转载请注明原文地址: https://ju.6miu.com/read-12737.html
