14 lines
355 B
Plaintext
14 lines
355 B
Plaintext
100 dim nuggets(100)
|
|
110 for six = 0 to 100/6
|
|
120 for nine = 0 to 100/9
|
|
130 for twenty = 0 to 100/20
|
|
140 n = six*6+nine*9+twenty*20
|
|
150 if n <= 100 then nuggets(n) = 1
|
|
160 next twenty
|
|
170 next nine
|
|
180 next six
|
|
190 for n = 100 to 1 step -1
|
|
200 if nuggets(n) <> 1 then print "Maximum non-McNuggets number is: ";n : goto 250
|
|
240 next n
|
|
250 end
|