比赛 NOIP2008集训模拟4 评测结果 MMMMMMMMMM
题目名称 彩色穿孔卡片 最终得分 0
用户昵称 rottenwood 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-11-13 08:37:31
显示代码纯文本
program punch;
type
shuzu=array[0..100000000] of integer;
shuzu1=array[1..10000] of boolean;
var
s:shuzu;
f:shuzu1;
i,j,k,m,n,a,b,max,temp,c:longint;
begin
assign(input,'punch.in');reset(input);
assign(output,'punch.out');rewrite(output);
readln(n);
max:=0;
for i:=1 to n do
begin
 readln(a,b);
 if b>max then max:=b;
 for j:=a+1 to b do
   s[j]:=i;
 end;
 temp:=s[1]; f[s[1]]:=true;
 c:=1;
for i:=1 to max do
begin
   if (temp<>s[i])and(not f[s[i]])
     then begin inc(c);temp:=s[i]; f[s[i]]:=true; end;
     end;
 writeln(c);
 close(output);
 end.