24 lines
453 B
Plaintext
24 lines
453 B
Plaintext
100 cls
|
|
110 limite = 1000
|
|
120 dim a(limite)
|
|
130 '
|
|
140 for n = 0 to limite-1
|
|
150 for m = n-1 to 0 step -1
|
|
160 if a(m) = a(n) then
|
|
170 a(n+1) = n-m
|
|
180 exit for
|
|
190 endif
|
|
200 next m
|
|
210 next n
|
|
220 '
|
|
230 print "Secuencia de Van Eck:";chr$(10)
|
|
240 print "Primeros 10 terminos: ";
|
|
250 for i = 0 to 9
|
|
260 print a(i);
|
|
270 next i
|
|
280 print chr$(10);"Terminos 991 al 1000: ";
|
|
290 for i = 990 to 999
|
|
300 print a(i);
|
|
310 next i
|
|
320 end
|