22 lines
416 B
Text
22 lines
416 B
Text
Public l[101] As Integer
|
|
|
|
Public Sub Main()
|
|
|
|
Dim a As Integer, b As Integer, c As Integer, n As Integer
|
|
|
|
For a = 0 To 100 / 6
|
|
For b = 0 To 100 / 9
|
|
For c = 0 To 100 / 20
|
|
n = a * 6 + b * 9 + c * 20
|
|
If n <= 100 Then l[n] = True
|
|
Next
|
|
Next
|
|
Next
|
|
For n = 100 To 1 Step -1
|
|
If Not l[n] Then
|
|
Print "Maximum non-McNuggets number is: "; n
|
|
Break
|
|
End If
|
|
Next
|
|
|
|
End
|