Форум » Циклы и ветвления » Чему равно К » Ответить
Чему равно К
T-O: Определите, количество чисел 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.
Ответов - 0
полная версия страницы