Степан
5 год назад
А как быть с этим?Определите пожалуйста, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 120:var i, k: integer;function F(x:integer):integer;beginif x < 1 thenF:= 1else F:= F(x-1) +3*F(x-2);end;begini := 0;readln(K);while F(i) < K do i:=i+1;writeln(i);end.
ОТВЕТЫ
Максим
Oct 24, 2020
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
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
695
Смежные вопросы:
