Посмотри как функция строится
F(0)=1, F(1)=1, F(2)=3, F(3)=7, F(4)=17, F(5)=41, F(6)=99
То есть последующий элемент равен сумме удвоенного предыдущего и препредыдущего.
Код возвращает порядковый номер элемента, котрый больше данного K
Больше 45 будет шестой элемент, который равен 99.
Он также будет больше 42,43 и т.д.
Всего их 99-41=58 Если требуется исключить 45, то остается 57
Поясню, что 99 нам не подходит, а 41 подходит.
Ответ:57
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ArrGen(17,i->real(i+1)); s.Println;
(s[10:]+s[9::-1]).Println
end.
<u>Пример</u>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
11 12 13 14 15 16 17 10 9 8 7 6 5 4 3 2 1