Информатика: Напишите нерекурсивную функцию фибоначи

nevzorovivan200

03.08.2021 04:49

Есть ответ 👍

Напишите нерекурсивную функцию фибоначи

228

425

Посмотреть ответы 2

bezhkinyova

Информатика

4,4(60 оценок)

Pascalabc.net 3.4.2, сборка 1857 от 05.11.2018 внимание! если программа не работает, обновите версию!

function fib(n: integer): integer;

begin

if n < 3 then result : = 1

else

begin

var (a, b) : = (1, 1);

for var i : = 3 to n do

(a, b) : = (a + b, a);

result : = a

end

end;

begin

for var i : = 1 to 10 do fib(i).print; // контрольный пример

end.

1 1 2 3 5 8 13 21 34 55

Амбрела123

Информатика

4,6(15 оценок)

Название объекта - это слайд

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.