23 lines
442 B
Plaintext
23 lines
442 B
Plaintext
OPTION BASE 0
|
|
DIM nuggets(100)
|
|
FOR n = 0 TO 100
|
|
LET nuggets(n) = 0
|
|
NEXT n
|
|
|
|
FOR six = 0 TO 100/6
|
|
FOR nine = 0 TO 100/9
|
|
FOR twenty = 0 TO 100/20
|
|
LET n = six*6 + nine*9 + twenty*20
|
|
IF n <= 100 THEN LET nuggets(n) = 1
|
|
NEXT twenty
|
|
NEXT nine
|
|
NEXT six
|
|
|
|
FOR n = 100 TO 1 STEP -1
|
|
IF nuggets(n) <> 1 THEN
|
|
PRINT "Maximum non-McNuggets number is: "; n
|
|
EXIT FOR
|
|
END IF
|
|
NEXT n
|
|
END
|