比赛 小练习赛:B组 评测结果 AAAAAAAAAA
题目名称 贴海报 最终得分 100
用户昵称 helloworld123 运行时间 0.779 s
代码语言 Pascal 内存使用 47.85 MiB
提交时间 2014-10-21 20:44:06
显示代码纯文本
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.