RosettaCodeData/Task/Fibonacci-sequence/BASIC/fibonacci-sequence-2.basic

9 lines
132 B
Plaintext

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