Question

校门外的树PASCAL

题目描述
某校大门外长度为L的马路上有一排树，每两棵相邻的树之间的间隔都是1米。我们可以把马路看成一个数轴，马路的一端在数轴0的位置，另一端在L的位置；数轴上的每个整数点，即0，1，2，……，L，都种有一棵树。由于马路上有一些区域要用来建地铁。这些区域用它们在数轴上的起始点和终止点表示。已知任一区域的起始点和终止点的坐标都是整数，区域之间可能有重合的部分。现在要把这些区域中的树（包括区域端点处的两棵树）移走。你的任务是计算将这些树都移走后，马路上还有多少棵树。
输入
第一行有两个整数L（1 <= L <= 10000）和M（1 <= M <= 100），L代表马路的长度，M代表区域的数目，L和M之间用一个空格隔开。接下来的M行每行包含两个不同的整数，用一个空格隔开，表示一个区域的起始点和终止点的坐标。
输出
一行，这一行只包含一个整数，表示马路上剩余的树的数目。

Answer 1

program tree;
var
a:array[0..10000] of boolean; 存储树的状态（注意第一棵树编号是0）
l,m,i,s,e,j,c:integer;
begin
fillchar(a,sizeof(a),false); 初始化a数组为 false ，即都未被移走
c:=0;
readln(l,m);
for i:=1 to m do
begin
readln(s,e);
for j:=s to e do a[j]:=true; 编号为s~e的树全部设为被移走状态
end;
for i:=0 to l do if a[i]=false then inc(c); 看看还有多少树没被移走
writeln(c);
end.