10 lines
280 B
Text
10 lines
280 B
Text
input "How many values do you want? :";n
|
|
dim Q(n)
|
|
Q(1) = 1
|
|
Q(2) = 1
|
|
for i = 1 to n
|
|
if i >= 3 then Q(i) = ( Q(i - Q(i-1)) + Q(i - Q(i-2)) )
|
|
if i <= 20 then print "n=";using("####",i);" ";using("###",Q(i))
|
|
next i
|
|
if i > 20 then print "n=";using("####",i);using("####",Q(i))
|
|
end
|