RosettaCodeData/Task/Fibonacci-sequence/BASIC/fibonacci-sequence-2.basic
2019-09-12 10:33:56 -07:00

8 lines
132 B
Text

10 INPUT "ENTER VALUE OF N"; N
20 N1 = 0 : N2 = 1
30 FOR K=1 TO N
40 SUM = N1+N2
50 N1 = N2
60 N2 = SUM
70 NEXT K
80 PRINT N1