15 lines
364 B
Text
15 lines
364 B
Text
100 HOME
|
|
110 FOR I = 0 TO 3
|
|
120 FOR J = 1 TO 5
|
|
130 LET N = (I * 5) + J
|
|
140 LET C = C + 1
|
|
150 GOSUB 200
|
|
160 PRINT "p("; N; ") = "; P; " "
|
|
170 NEXT J
|
|
180 NEXT I
|
|
190 END
|
|
200 REM pancake(n)
|
|
210 LET G = 2 : LET S = 2 : LET A = -1
|
|
220 IF S < N THEN LET A = A + 1 : LET G = (G * 2) - 1 : LET S = S + G
|
|
230 IF S >= N THEN LET P = N + A : RETURN
|
|
240 GOTO 220
|