Пожалуйста, помогите с решением...

Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 36:
var i, k: integer;
function F(x:integer):integer;
begin
if x < 2 then
F:= 1
else F:= F(x-1) + 2*F(x-2);
end;
begin
i := 28;
readln(K);
while (i > 0) and (F(i) > K) do
i:=i-1;
writeln(i);
end.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.