Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 45: var i, k: integer; function f(x: integer): integer; begin if x < 2 then f: = 1 else f: = 2*f(x-1) + f(x-2); end; begin i : = 0; readln(k); while f(i) < k do i: =i+1; writeln(i); end. решить, . нужно расписать