17 lines
325 B
Text
17 lines
325 B
Text
limite = 100000
|
|
dim Q[limite+1]
|
|
cont = 0
|
|
Q[1] = 1
|
|
Q[2] = 1
|
|
for i = 3 to limite
|
|
Q[i] = Q[i-Q[i-1]] + Q[i-Q[i-2]]
|
|
if Q[i] < Q[i-1] then cont += 1
|
|
next i
|
|
|
|
print "Primeros 10 términos: ";
|
|
for i = 1 to 10
|
|
print Q[i] + " ";
|
|
next i
|
|
|
|
print "Término número 1000: "; Q[1000]
|
|
print "Términos menores que los anteriores: "; cont
|