11 lines
235 B
Text
11 lines
235 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 END
|
|
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
|