某校大门外长度为L的马路上有一排树，每两棵相邻的树之间的间隔都是1米。我们可以把马路看成一个数轴，马路的一端在数轴0的位置，另一端在L的位置；数轴上的每个整数点，即0，1，2，……，L，都种有一棵树。由于马路上有一些区域要用来建地铁。这些区域用它们在数轴上的起始点和终止点表示。已知任一区域的起始点和终止点的坐标都是整数，区域之间可能有重合的部分。现在要把这些区域中的树（包括区域端点处的两棵树）移走。你的任务是计算将这些树都移走后，马路上还有多少棵树。
分析：数据只有10000，只要暴力枚举重复部分两边的边界就可以得知答案
var
ans,l,m,i,j:longint;
a,b:array[1..100] of longint;
function max(x,y:longint):longint;
begin
if x>y then exit(x)
else exit(y);
end;
function min(x,y:longint):longint;
begin
if x<y then exit(x)
else exit(y);
end;
begin
readln(l,m);
ans:=0;
for i:=1 to m do
readln(a[i],b[i]);
for i:=1 to m do
for j:=1 to m do
if((a[i]>a[j])and(a[i]<b[j]))or((a[j]>a[i])and(a[j]<b[i])) then
begin
a[i]:=min(a[i],a[j]);
b[i]:=max(b[i],b[j]);
a[j]:=0;
b[j]:=0;
end;
for i:=1 to m do
if b[i]>0 then ans:=ans+b[i]-a[i]+1;
write(l+1-ans);
end.
转载请注明原文地址: https://ju.6miu.com/read-662005.html
