14 lines
367 B
Plaintext
14 lines
367 B
Plaintext
0010 limit#:=100
|
|
0020 DIM nugget#(0:limit#)
|
|
0030 FOR a#:=0 TO limit# STEP 6 DO
|
|
0040 FOR b#:=a# TO limit# STEP 9 DO
|
|
0050 FOR c#:=b# TO limit# STEP 20 DO nugget#(c#):=TRUE
|
|
0060 ENDFOR b#
|
|
0070 ENDFOR a#
|
|
0080 FOR i#:=limit# TO 0 STEP -1 DO
|
|
0090 IF NOT nugget#(i#) THEN
|
|
0100 PRINT "Maximum non-McNuggets number: ",i#
|
|
0110 END
|
|
0120 ENDIF
|
|
0130 ENDFOR i#
|