McNuggets problem: Difference between revisions

{{out}}

<pre>Maximum non-McNuggets number is: 43</pre>

==={{header|Gambas}}===

<syntaxhighlight lang="vbnet">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</syntaxhighlight>