freepascal编程三、拾苹果（spg.pas、spg.c）有一个游戏，屏幕被划分为N列，在屏幕的底部，有一个M列宽的船（N>M）。游戏者可以操纵船向左或右移动，但船不能移出屏幕。最初时船在最左的M

Question

free pascal 编程
三、拾苹果（spg.pas、spg.c）
有一个游戏，屏幕被划分为N列，在屏幕的底部，有一个M列宽的船（N>M）。游戏者可以操纵船向左或右移动，但船不能移出屏幕。最初时船在最左的M列。若干苹果从屏幕顶部下落，每个苹果沿某一列的直线下落，直到屏幕的底部，当到达底部后，下一个苹果开始下落。
如果船正好在苹果下落这一列的底部，表示该苹果被拾起。游戏的目标是拾起所有的苹果，但要使船在整个过程中移动的距离和最少。
输入输出样例：
输入：
5 2 （N和M，1 ≤ M < N ≤ 10）
3 （3个苹果，最多20个）
1 （在1、5、3列下落）
5
3
输出：
4
四、幸运整数（xyzs.pas、xyzs.c）
数字“4”和“7”是幸运数字，那么仅用幸运数字组成的整数就是幸运整数，请你帮助找出第k个幸运整数。输入k，输出第k个整数。
输入输出样例：
输入： 3 (k ≤ 30)
输出： 44
五、上网（sw.pas、sw.c）
请为网吧设计一个上网计费程序。上网在7:00到19:00期间每分钟需10分钱，在19:00到7:00期间每分钟需5分钱。从开始连接Internet到结束的时间以分钟计算，一次连接不超过60分钟。给出一系列的连接时间表，请计算多次上网需要的总花费是多少分？
第一行先输入连接时间次数N。以后N行的每一行为一次连接描述，格式如下：
HH：MM DD
其中HH：MM表示连接的时和分，DD表示这一次连接的时间（以分钟表示，最大60），与MM间有一空格。如果时或分为y一位数，前面添0。时间表示从00：00到23：59。
输入输出样例：
输入：
3 （N ≤ 100）
20:05 12
06:45 30
13:08 15
输出：
435

六、SECSA数(secsa.pas、secsa.c)
我们把整数n1、n2（包括n1、n2）之间的所有数的约数个数之和称为n1、n2的secsa数。求n1、n2的secsa数（1 ≤ n1 < n2 ≤ 3000）。
样例输入输出：
输入：2 6
输出：13
样例说明：2的约数有1、2 (2个)；3的约数有1、3 (2个)；4的约数有1、2、4 (3个)；5的约数有1、5 (2个)；6的约数有1、2、3、6 (4个)。所以2 、6的secsa数为13。

Answer 1

program spg;
var
a:array[0..1000] of longint;
i,j,n,m,x,y,z,k:longint;
begin
readln(n,m);
readln(j);
for i:=1 to j do readln(a[i]);
k:=m;
x:=1;
if m=1 then z:=1
else z:=m;
a[0]:=0;
while a[x] y:=a[x]-a[x-1];
for i:=x+1 to j do
if a[i]>a[i-1] then y:=y+a[i]-a[i-1]
else y:=y+a[i-1]-a[i]-z;
write(y);
end.