R
Roby
Guest
vi volevo chiedere se esiste una soluzione allo script sulla piramide
che vi vado a mostrare,il mini script è stato estrapolato da un listato senza autore,probabile che sia di esselotto,ma è mia intenzione che lo script si ferma alla fine dove vi sono 4 numeri
è di questi si vuole il valore.
nu1=n16&n17&n18&n19&n20'<<<--- unione numeri
Scrivi FormatSpace(nu1,1,1) 'metti un' apice per non vedere la piramide
For fine = Len(nu1) To 2 step-1
x = fine : r=""
For a= 1 To x : c(a)= Mid (nu1,a,1) : Next
For a = 1 To x -1
t= c(a) + 0+ c(a+1) + 0
If t>=10 Then
t= Int (t/10) + t - Int (t/10)*10
End If
r=r & t
Next
nu1=CStr(r)
If r>90 Then r=r-90
Scrivi FormatSpace(nu1,1,1) 'metti un' apice per non vedere la piramide
Next
------------------------
ammettendo che questa è la piramide
597847478
57632226
3495448
745983
29582
2541<<<--come fermarla in questo punto
795
75
3
facendo si che mi restituisca 25-41
vi ringrazio se su questa formula vi è una soluzione
che vi vado a mostrare,il mini script è stato estrapolato da un listato senza autore,probabile che sia di esselotto,ma è mia intenzione che lo script si ferma alla fine dove vi sono 4 numeri
è di questi si vuole il valore.
nu1=n16&n17&n18&n19&n20'<<<--- unione numeri
Scrivi FormatSpace(nu1,1,1) 'metti un' apice per non vedere la piramide
For fine = Len(nu1) To 2 step-1
x = fine : r=""
For a= 1 To x : c(a)= Mid (nu1,a,1) : Next
For a = 1 To x -1
t= c(a) + 0+ c(a+1) + 0
If t>=10 Then
t= Int (t/10) + t - Int (t/10)*10
End If
r=r & t
Next
nu1=CStr(r)
If r>90 Then r=r-90
Scrivi FormatSpace(nu1,1,1) 'metti un' apice per non vedere la piramide
Next
------------------------
ammettendo che questa è la piramide
597847478
57632226
3495448
745983
29582
2541<<<--come fermarla in questo punto
795
75
3
facendo si che mi restituisca 25-41
vi ringrazio se su questa formula vi è una soluzione