Задано число N вывести соответствующий элемент ряда чисел фибоначи:11235821

Question

Задано число N вывести соответствующий элемент ряда чисел фибоначи:11235821

Comments

Паскаль? Как делать - отдельной функцией (если да, то рекурсивной или нет) или просто внутри программы?

---

Не надо Фибоначчи рекурсивно...

---

Это автор вопроса должен решить, может у них тема о рекурсии

---

Ну может быть...

Answer 1

Ответа нет, напишу по-простому.

var
  i, n, f1, f2, t: integer;

begin
  Write('Задайте натуральное число: '); Readln(n);
  f1 := 0; f2 := 1;
  for i := 2 to n do begin t := f2; f2 := f1 + f2; f1 := t end;
  Writeln('F(', n, ')=', f2)
end.

Тестовое решение:
Задайте натуральное число: 10
F(10)=55

Answer 2

Var a,b,c,n:integer;begin     readln(n);     if n <= 2 then writeln(1)     else begin         a := 1;         b := 1;         while n > 2 do begin c := a + b; a := b; b := c; dec(n) end;         writeln(c);     end;end.