Anonymous user
User:Klever: Difference between revisions
m
→Hailstone sequence
No edit summary |
|||
Line 189:
Dim theSequenceLength As Long
Dim SeqLength As Long
Dim i as Long
'find and print the Hailstone sequence for 27 (note: the whole sequence, not just the first four and last four items!)
Line 197 ⟶ 198:
theSequenceLength = 0
For i = 2 To 99999
SeqLength = Hailstone
If SeqLength > theSequenceLength Then
theNumber = i
|