RosettaCodeData/Task/Fibonacci-sequence/Integer-BASIC/fibonacci-sequence.basic
2023-07-01 13:44:08 -04: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