А как быть с этим? Определите пожалуйста, количество чисел K, для которых следующая...

Question

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

Comments

Как?

---

Спасибо огромное)))

---

Ответ 120 (для k c 98 по 217)

Answer 1

var i, k: integer;
function F(x:integer):integer;
begin
if x < 1 then
F:= 1
else F:= F(x-1) +3*F(x-2);
end;
begin
i := 0;
readln(K);
while F(i) < K do
i:=i+1;
writeln(i);
end.
оТВЕТ:220

Comments

для этой программы правильный ответ 120, столько чисел для которых условие в программе выполняется k принадлежит отрезку [98,217], для всех этих k получаем ответ i=6