25 lines
386 B
Plaintext
25 lines
386 B
Plaintext
LET limite = 100000
|
|
|
|
DIM q(0)
|
|
MAT REDIM q(limite)
|
|
LET q(1) = 1
|
|
LET q(2) = 1
|
|
|
|
LET count = 0
|
|
FOR i = 3 TO limite
|
|
LET q(i) = q(i-q(i-1))+q(i-q(i-2))
|
|
IF q(i) < q(i-1) THEN
|
|
LET count = count + 1
|
|
END IF
|
|
NEXT i
|
|
|
|
PRINT "First 10 terms: ";
|
|
FOR i = 1 TO 10
|
|
PRINT q(i);
|
|
NEXT i
|
|
|
|
PRINT
|
|
PRINT "Term 1000: "; q(1000)
|
|
PRINT "Terms less than preceding in first 100k: "; count
|
|
END
|