Лизе так приглянулись числа Фибоначчи, что она решила выстроить свою последовательность

Лизе так понравились числа Фибоначчи, что она решила выстроить свою последовательность чисел Либоначчи. Числа Либоначчи строятся, как и числа Фибоначчи: i-ое число Либоначчи одинаково сумме i1-го и i2-го частей последовательности, но 1-ый член последовательности 1, а 2-ой: 1.
Помогите Лизе посчитать сумму чисел Либоначчи с индексами от 16 до 21 включительно. В качестве ответа укажите одно целое число, например, -1.

Задать свой вопрос
1 ответ
//PascalABC.NET 3.2 сборка 1318

Var
  libonachi:array of integer;
  n,i,res:integer;

procedure libonachiComputer(var vals:array of integer;var i:integer);
begin
  if ilt;=20 then
    begin
      vals[i]:=vals[i-1]+vals[i-2];
      inc(i);
      libonachiComputer(vals,i);
    end;
end;


begin
n:=21;
i:=2;
res:=0;
setlength(libonachi,n);
libonachi[0]:=1;
libonachi[1]:=-1;
libonachiComputer(libonachi,i);
for i:=15 to 20 do
res+=libonachi[i];
writeln(res);
end.

Вывод:
-6388
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт