ЗАДАЧИ ПО ИНФОРМАТИКЕ. ПОМОГИТЕ ПОЖАЛЦЙСТА

Question

user_297436568 · Accepted Answer

Ответ:
F(6) = 99
PascalABC:
var n : integer; 
       function Recurs (k :integer) : integer; 
           begin 
                    if (k = 0) then Result := 1; 
                    if (k = 1) then Result := 1; 
                    if (k > 1) then Result := 2*Recurs (k-1) + Recurs (k-2); 
           end; 
         begin 
           n := 6; 
          WriteLn ('   F(',  n, ') = ', Recurs (n)); 
       end.