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

11 lines
102 B
Plaintext

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