pascal(3个小问题)

来源：百度知道 编辑：UC知道 时间：2024/05/17 03:52:35
题目3、（文件名：cse3.pas）举出所有用1,2,3这三个数字组成的, 且每位数字互不相同的两位数.

题目4、吉米家的果树 (文件名：cse4.pas)

【问题描述】
吉米家门外有一条笔直的马路长度为L,小吉米从小希望把这条路的一边种满果树，所以他一有空就在这条路边上种树，他种的果树每两棵相邻间隔都是1米。今年年初，刚好种满了。
但前不久，有一个不愉快的消息传来，使得小吉米非常伤心。市规划局决定要兴建的地铁要从他家附近通过。刚好这条马路上有一些区域要用来建地铁，在区域内的果树都要被移走（包括区域端点处的两棵果树）。我们可以把马路看成一个数轴，马路的一端在数轴0的位置，另一端在L的位置；数轴上的每个整数点，即0，1，2，……，L，都种有一棵树。已知规划局给出了一份将要穿过这条马路，在这个数轴区域的起点和终止点清单，任一区域的起始点和终止点的坐标都是整数，区域之间可能有重合的部分。
请你帮助吉米算算他从小种的树还能剩多少棵？
【输入格式】
输入数据的第一行有两个整数L（1 <= L <= 10000）和 M（1 <= M <= 100），L代表马路的长度，M代表区域的数目，L和M之间用一个空格隔开。接下来的M行每行包含两个不同的整数，用一个空格隔开，表示一个区域的起始点和终止点的坐标。

【输出格式】
输出包括一行，这一行只包含一个整数，表示马路上剩余的树的数目。

【样例输入】
500 3
150 300
100 200
470 471

【样例输出】
298

【数据规模】
对于20%的数据，区域之间没有重合的部分；
对于其它的数据，区域之间有重合的情况。

题目5、删数问题(文件名：cse5.pas)
【题目描述】
给定一正整数n(n的位数小于240)，现要删除数n中的s个数码，使其得到的新数最小，求这个最小数。

【输入格式】
输入有两

第3题：
var a,i,j:longint;
begin
for i:=1 to 3 do
for j:=1 to 3 do
if i<>j then
writeln(i*10+j);
end.
第4题
var a,b,c,d,e,f,g,h,i,j,k,l:longint;
y:array[0..100000]of longint;
t:array[1..100000,1..2]of longint;
begin
read(d,a);
for i:=1 to a do
begin
read(t[i,1],t[i,2]);
if t[i,1]>t[i,2] then begin b:=t[i,1];t[i,1]:=t[i,2];t[i,2]:=b;end;
for j:=t[i,1] to t[i,2] do
y[j]:=1;
end;
for i:=0 to d do
if y[i]=0 then h:=h+1;
write(h);
end.
跟noip2005-2一样