22 lines
399 B
Plaintext
22 lines
399 B
Plaintext
limite = 1001
|
|
dim a(limite) fill 0
|
|
|
|
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
|
|
end if
|
|
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
|