McNuggets problem: Difference between revisions
McNuggets Problem en FreeBASIC
Catskill549 (talk | contribs) |
(McNuggets Problem en FreeBASIC) |
||
Line 334:
<pre>
43
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>
Dim As Integer l(100), a, b, c, n
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 c
Next b
Next a
For n = 100 To 1 Step -1
If l(n) = false Then Print "El mayor número que no sea McNugget es:"; n: Exit For
Next n
End
</lang>
{{out}}
<pre>
El mayor número que no sea McNugget es: 43
</pre>
| |||