记录编号 127315 评测结果 AAAAAAAAAA
题目名称 尼克的任务 最终得分 100
用户昵称 Gravatar思邈然 是否通过 通过
代码语言 Pascal 运行时间 0.014 s
提交时间 2014-10-15 13:47:13 内存使用 0.22 MiB
显示代码纯文本
program nike;
Var
   p,t,f:array[0..10001]of integer;
   n,k,i,j:integer;
begin
assign(input,'lignja.in');reset(input);
assign(output,'lignja.out');rewrite(output);
readln(n,k);
for i:=1 to k do read(p[i],t[i]);
fillchar(f,sizeof(f),0);
j:=k;
for i:=n downto 1 do
   if p[j]<>i then f[i]:=f[i+1]+1
   else
      while p[j]=i do
         begin
         if f[i]<f[p[j]+t[j]]
            then f[i]:=f[p[j]+t[j]];
         dec(j);
         end;
writeln(f[1]);
close(input); close(output);
end.