RosettaCodeData/Task/Fibonacci-sequence/BASIC/fibonacci-sequence-5.basic
2017-09-25 22:28:19 +02: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