19 lines
335 B
Plaintext
19 lines
335 B
Plaintext
arraybase 1
|
|
dim nuggets(100)
|
|
|
|
for six = 0 To 100/6
|
|
for nine = 0 To 100/9
|
|
for twenty = 0 To 100/20
|
|
n = six*6 + nine*9 + twenty*20
|
|
if n <= 100 then nuggets[n] = true
|
|
next twenty
|
|
next nine
|
|
next six
|
|
|
|
for n = 100 to 1 step -1
|
|
if nuggets[n] = false then
|
|
print "Maximum non-McNuggets number is: "; n
|
|
exit for
|
|
end if
|
|
next n
|