25 lines
454 B
Plaintext
25 lines
454 B
Plaintext
OpenConsole()
|
|
Define n.i
|
|
Dim nuggets.i(100)
|
|
|
|
For six.i = 0 To 100/6
|
|
For nine.i = 0 To 100/9
|
|
For twenty.i = 0 To 100/20
|
|
n = six*6 + nine*9 + twenty*20
|
|
If n <= 100
|
|
nuggets(n) = #True
|
|
EndIf
|
|
Next twenty
|
|
Next nine
|
|
Next six
|
|
|
|
For n = 100 To 1 Step -1
|
|
If nuggets(n) = #False
|
|
PrintN("Maximum non-McNuggets number is: " + Str(n))
|
|
Break
|
|
EndIf
|
|
Next n
|
|
|
|
PrintN(#CRLF$ + "Press ENTER to exit"): Input()
|
|
CloseConsole()
|