19 lines
451 B
QBasic
19 lines
451 B
QBasic
10 INPUT"HOW MANY DIGITS";N
|
|
20 T=TIME
|
|
30 L=INT(10*N/3)+1:DIM A(L)
|
|
40 Z$="000000":T$="999999"
|
|
50 FOR I=1TOL:A(I)=2:NEXT
|
|
60 M=0:P=0
|
|
70 FOR J=1TON:Q=0:K=2*L+1
|
|
80 FOR I=L TO 1 STEP -1
|
|
90 K=K-2:X=10*A(I)+Q*I
|
|
100 Q=INT(X/K):A(I)=X-Q*K
|
|
110 NEXT
|
|
120 Y=INT(Q/10):A(1)=Q-10*Y:Q=Y
|
|
130 IF Q=9 THEN M=M+1:GOTO170
|
|
140 IF Q>9 THEN PRINT CHR$(49+P);LEFT$(Z$,M);:GOTO170
|
|
150 PRINT CHR$(48+P);LEFT$(T$,M);
|
|
160 P=Q:M=0
|
|
170 NEXT
|
|
180 PRINT CHR$(48+P):PRINT (TIME-T)/59.98
|