14 lines
335 B
Plaintext
14 lines
335 B
Plaintext
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
|