Предмет: Информатика,
автор: vika7474
Лизе так понравились числа Фибоначчи, что она решила построить свою последовательность чисел Либоначчи. Числа Либоначчи строятся, как и числа Фибоначчи: i-ое число Либоначчи равно сумме i−1-го и i−2-го элементов последовательности, но первый член последовательности 1, а второй: −1.
Помогите Лизе посчитать сумму чисел Либоначчи с индексами от 16 до 21 включительно. В качестве ответа укажите одно целое число, например, -1.
Ответы
Автор ответа:
0
//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 i<=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
Var
libonachi:array of integer;
n,i,res:integer;
procedure libonachiComputer(var vals:array of integer;var i:integer);
begin
if i<=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
Похожие вопросы
Предмет: История,
автор: ilonagledasheva
Предмет: Қазақ тiлi,
автор: hddhhddhhd
Предмет: Українська мова,
автор: liza2004che
Предмет: Математика,
автор: hyrdnkom
Предмет: Математика,
автор: mineevadashuta