20 lines
327 B
Text
20 lines
327 B
Text
limite = 1e5
|
|
dim q(limite)
|
|
q(1) = 1
|
|
q(2) = 1
|
|
|
|
count = 0
|
|
for i = 3 to limite
|
|
q(i) = q(i-q(i-1)) + q(i-q(i-2))
|
|
if q(i) < q(i-1) count = count + 1
|
|
next i
|
|
|
|
print "First 10 terms: ";
|
|
|
|
for i = 1 to 10
|
|
print q(i), " ";
|
|
next i
|
|
|
|
print "\nTerm 1000: ", q(1000)
|
|
print "Terms less than preceding in first 100k: ", count
|
|
end
|