26 lines
399 B
Text
26 lines
399 B
Text
uses console
|
|
|
|
int limite = 100000
|
|
|
|
dim long Q[100000]
|
|
long i, 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 terminos: "
|
|
For i = 1 To 10
|
|
print Q(i) " ";
|
|
Next i
|
|
print cr
|
|
|
|
printl "Termino numero 1000: " Q(1000)
|
|
|
|
printl "Terminos menores que los anteriores: " cont
|
|
|
|
printl cr "Enter ..."
|
|
waitkey
|