21 lines
384 B
Plaintext
21 lines
384 B
Plaintext
Const limite = 1000
|
|
|
|
Dim As Integer a(limite), n, m, i
|
|
|
|
For n = 0 To limite-1
|
|
For m = n-1 To 0 Step -1
|
|
If a(m) = a(n) Then a(n+1) = n-m: Exit For
|
|
Next m
|
|
Next n
|
|
|
|
Print "Secuencia de Van Eck:" &Chr(10)
|
|
Print "Primeros 10 terminos: ";
|
|
For i = 0 To 9
|
|
Print a(i) &" ";
|
|
Next i
|
|
Print Chr(10) & "Terminos 991 al 1000: ";
|
|
For i = 990 To 999
|
|
Print a(i) &" ";
|
|
Next i
|
|
End
|