Акак быть с этим? определите , количество чисел 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.
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