RosettaCodeData/Task/Fibonacci-sequence/BASIC/fibonacci-sequence-6.basic
2017-09-25 22:28:19 +02:00

10 lines
102 B
Text

10 INPUT N
20 A=0
30 B=1
40 FOR I=2 TO N
50 C=B
60 B=A+B
70 A=C
80 NEXT I
90 PRINT B
100 END