x Utile o chi può aiutarmi.

[Roby]

Buonasera a tutti,
volevo sapere quante sestine di somma, ad esempio, 249,ci sono, o altre somme al SuperEnalotto.
Spero di essere stato chiaro nell'esporre il quesito.

Grazie

Grazie.
Gianlotto.

 

[imported_n/a]

Non lo so quante sono.....mi sono stufato di stare ad aspettare l'imbecille elettronico...ma son tante!!!
Se puoi farlo girare questo sotto è il listato.
Per cambiare la somma basta cambiare i dati su If x=249 Then
Ciao

Sub main()
For a1=1 To 85
For a2=a1+1 To 86
For a3=a2+1 To 87
For a4=a3+1 To 88
For a5=a4+1 To 89
For a6=a5+1 To 90
x=a1+a2+a3+a4+a5+a6
If x=249 Then
Scrivi a1&"."&a2&"."&a3&"."&a4&"."&a5&"."&a6
End If
Next
Next
Next
Next
Next
Next
End Sub


Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[ermyy]

mamma mia ke acido ke sei daniel

skagli la pietra ki e senza pekkato