记录编号 130222 评测结果 AAAAAAAAAAAAAAATAAAAT
题目名称 [HAOI 2014]贴海报 最终得分 90
用户昵称 Gravatarsafhsdajkfhsad 是否通过 未通过
代码语言 Pascal 运行时间 2.356 s
提交时间 2014-10-21 21:15:41 内存使用 19.24 MiB
显示代码纯文本
const
  maxnum=10000000;
var
  n,m,i,j,vle,vri,vans:longint;
  data:array[0..maxnum] of integer;
  dause:array[0..1000] of boolean;

begin
  assign(input,'ha14d.in');
  reset(input);
  assign(output,'ha14d.out');
  rewrite(output);
  readln(n,m);
  fillchar(dause,sizeof(dause),false);
  for i:=1 to m do
    begin
      readln(vle,vri);
      for j:=vle to vri do
          data[j]:=i;
      dause[i]:=true;
    end;

  vans:=0;
  for i:=1 to n do
    begin
      if (dause[data[i]]) then
        inc(vans);
      dause[data[i]]:=false;
    end;

  writeln(vans);
  close(input);
  close(output);
end.