Hello,
there are 20 combinations making a total of 35 cents
In qb64
Dim p As Integer, n As Integer, d As Integer, s As Integer, nb As Integer
nb = 0
For p = 0 To 35
For n = 0 To 7
s = 1 * p + 5 * n
If s < 36 Then
For d = 0 To 3
s = p + 5 * n + d * 10
If s = 35 Then
nb = nb + 1
Print nb, p; n; d
End If
Next d
End If
Next n
Next p
End