本题主要是考高精度除法的。

对于被除数是高精度，除数是整数的除法，可以按手算除法的方法来进行：
首先，a$为被除数，n为除数，i为目前的指针。
（1）取a$的第i个1，加到b$里，i=i+1，直到VAL(b$)>n。
（2）计算VAL(b$)/n的商和余数，商加到c$里，余数保存在b$里，转（1）。
（3）若i>=LEN(a$)则计算结束：
     1、若在执行（1）的过程中i>LEN(a$)，则表示a$不能被n整除，计算失败。
     2、若执行（2）后i=LEN(a$)，并且b$="0"，则计算成功，c$就是S，否则计算失败。

程序：
DECLARE SUB div (a$, n!)
CLS
DIM SHARED c$, t
INPUT p
k = 0
DO
  k = k + 1
  a$ = STRING$(k, "1")
  IF a$ = LTRIM$(STR$(p)) THEN t = -1: c$ = "1" ELSE CALL div(a$, p)
  IF t THEN
     FOR i = 1 TO LEN(c$)
         PRINT MID$(c$, i, 1);
         IF i MOD 50 = 0 THEN PRINT
     NEXT i
     PRINT
     PRINT LTRIM$(STR$(LEN(a$)))
     END
  END IF
LOOP
END

SUB div (a$, n)
i = 0: c$ = ""
1 DO
  i = i + 1
  IF i <= LEN(a$) THEN
     b$ = b$ + "1"
  ELSE
     t = 0: EXIT SUB
  END IF
LOOP UNTIL VAL(b$) > n
k1 = VAL(b$) / n: k2 = VAL(b$) - INT(k1) * n
c$ = c$ + LTRIM$(STR$(INT(k1))): b$ = LTRIM$(STR$(k2))
IF i = LEN(a$) THEN
   IF b$ = "0" THEN t = -1: EXIT SUB ELSE t = 0: EXIT SUB
END IF
GOTO 1
END SUB

谢谢