[HAOI 2014]贴海报 - helloworld123 - 130257

记录编号	130257	评测结果	AAAAAAAAAAAAAAATAAAAT
题目名称	[HAOI 2014]贴海报	最终得分	90
用户昵称	helloworld123	是否通过	未通过
代码语言	Pascal	运行时间	2.888 s
提交时间	2014-10-21 21:38:17	内存使用	47.85 MiB

显示代码纯文本

program cogs1682;
const
 maxn=10000000;
var
l,r,i,j,n,m:longint;
min,max,t,total:longint;
a:array[1..maxn] of longint;
f:array[0..maxn] of boolean;
begin
   assign(input,'ha14d.in'); reset(input);
   assign(output,'ha14d.out'); rewrite(output);
   max:=-maxlongint; min:=maxlongint;   total:=0;
     readln(n,m);
     fillchar(a,sizeof(a),0);
     for i:=1 to m do
      begin
        readln(l,r);
        if r<l then begin t:=l; l:=r; r:=t end;
        if l<min then min:=l;
        if r>max then max:=r;
        for j:=l to r do
            a[j]:=i;
      end;
   for i:=min to max do
     f[a[i]]:=true;
   for i:=1 to m do
     if f[i] then inc(total);
   writeln(total);


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