составить в qbasic программу, печатающую ряд фибоначчи, где каждое последующее число равно сумме двух предыдущих. 1,1,2,3,5, пусть m=20

Не знаю, поддерживает ли Бейсик рекурсию, но решение с рекурсией очень красивое, вот оно

Основная программа

Ввод(M);

Сообщить(F(M));

Всё!

Подпрограмма вычисления M-того числа Фибоначчи (рекурсивная!)

Функция F(M)

    Если M<1 Тогда

         Возврат(0);

    КонецЕсли;

    Если M<3 тогда

         Возврат(1);

    Иначе

         Возврат(F(M-2)+F(M-1));

    КонецЕсли;

КонецФункции

Проверил(не на бейсике), работает.

Достаточно быстро посчитала

F(20)=6765