比赛 NOIP2008集训模拟4 评测结果 ATAAAATTTT
题目名称 彩色穿孔卡片 最终得分 50
用户昵称 E.M.B.E.R 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-11-13 08:57:56
显示代码纯文本
program EmberAsh;
var
a:array[0..10000000]of longint;
b:array[0..10000000]of boolean;
i,j,k,t1,t2,n,m,min,max:longint;
fin,fout:text;

BEGIN
assign(fin,'punch.in');reset(fin);
assign(fout,'punch.out');rewrite(fout);
readln(fin,n);
min:=maxlongint;max:=0;
for i:=1 to n do
  begin
  inc(k);
  readln(fin,t1,t2);
  if t1<min then min:=t1;
  if t2>max then max:=t2;
  for j:=t1 to t2 do
    a[j]:=k;
  end;
for i:=min to max do
  if b[a[i]]=false then
    begin
    inc(m);
    b[a[i]]:=true;
    end;
writeln(fout,m);
close(fin);close(fout);
END.