Числа Фибоначчи (f(n)) определяются формулами : f(0)=f(1)=1; f(n)=f(n-1)+f(n-2) при n=2,3,4,….. Составить программу определения f-40-е число Фибоначчи — QBasic(Бейсик)

INPUT "vvedite nomer chisla fibbonachi ", n
DIM a(n)
a(1) = 1
a(2) = 1
FOR i = 3 TO n
    a(i) = a(i - 1) + a(i - 2)
NEXT
PRINT a(n)

Следующий вариант

INPUT "vvedite nomer ", n
IF n = 1 OR n = 2 THEN PRINT "fib=1": END
a = 1
b = 1
FOR i = 3 TO n
    c = a + b
    a = b
    b = c
NEXT
PRINT c

Тестирование выполнено в программе QB64 ( Скачать )