12 lines
240 B
Text
12 lines
240 B
Text
10 LET N = 41
|
|
20 LET K = 3
|
|
30 LET M = 0
|
|
40 GOSUB 100
|
|
50 PRINT "N ="; N, "K ="; K, "FINAL SURVIVOR ="; S
|
|
60 GOTO 150
|
|
100 LET S = M
|
|
110 FOR A = M+1 TO N
|
|
120 LET S = INT(A * ((S+K) / A - INT((S+K) / A)) + 0.5)
|
|
130 NEXT A
|
|
140 RETURN
|
|
150 END
|