14 lines
408 B
Text
14 lines
408 B
Text
NORMAL MODE IS INTEGER
|
|
VECTOR VALUES FMT = $2HQ(,I4,3H) =,I4*$
|
|
|
|
DIMENSION Q(1000)
|
|
Q(1) = 1
|
|
Q(2) = 1
|
|
THROUGH FILL, FOR N=3, 1, N.G.1000
|
|
FILL Q(N) = Q(N-Q(N-1)) + Q(N-Q(N-2))
|
|
|
|
THROUGH SHOW, FOR N=1, 1, N.G.10
|
|
SHOW PRINT FORMAT FMT, N, Q(N)
|
|
PRINT FORMAT FMT, 1000, Q(1000)
|
|
|
|
END OF PROGRAM
|