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

Question

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

Comments

Что она должна принимать в качестве параметров и что возвращать?

---

Просто такое задание дали, я и сам не понимаю что делать. Тупые учебники пошли

---

Больше ничего не дано

---

Но сдавать ведь задание Вам, поэтому Вы должны определиться, каким должно быть решение.

---

Можно, к примеру, вычислять число Фибоначчи с номером N. А можно получать весь набор чисел Фибоначчи, включая число с номером N

---

Ну давайте только с номером N

Answer 1

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