Задача на динамическое программирование.

Дано число N. Нужно вычислить N-ое число Фибоначчи (Первое - 1, второе - 1, третье - 2, четвертое - 3, ...).

1

Ответы и объяснения

2014-02-22T22:36:01+04:00
VAR
   n, i, f1, f2, f3: LongInt;
BEGIN
   Read(n);
   f3 := 1;
   for i := 1 to n do begin
      f1 := f2; f2 := f3;
      f3 := f1 + f2; end;
   Write(f3);
END.