input "K,P:",K,P
S=1
V=K\P
print
for i=2 to P
    S=S*V
    K=K-V
    print V;"*";
next
print K;"=";S*K

要想使乘积最大,必须这p个数最接近，最好相等．
（1）、找出p个相等的数，它们越大越好，但乘积不能超过k。
（2）、用k减去它们的乘积。
（3）、如果k为0，就转（5），否则转（4）。
（4）、给第1个数、第2个数、……第p个数加上1，k=k-1，转（3）。
（5）、输出。
程序：
CLS
INPUT k, p: DIM a(p)
DO
  i = i + 1
LOOP UNTIL i * p > k
FOR j = 1 TO p: a(j) = i - 1: k = k - a(j): NEXT j
j = 0
1 IF k = 0 THEN 2
j = j + 1
IF j > p THEN j = 1
a(j) = a(j) + 1
k = k - 1
GOTO 1
2 s = 1
FOR i = 1 TO p - 1
    PRINT a(i); "*";
    s = s * a(i)
NEXT i
PRINT a(p); "="; s * a(p)
END