Определите, количество чисел k, для которых следующая - вопрос №3480141 от vika200920001 19.08.2020 11:39

Question

Информатика: Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 22: var i, k: integer; function f(x: integer): integer; begin f: =x*x*x+x*x; end; begin i : = 20; readln(k); while (i 0) and (f(i) k) do i: =i-1; writeln(i); end.

vika200920001 · Answer

У тебя функция x^3+x^2 и перебор от 20 до 1, т.е. x^3+x^2 будет больше 22 при числах:
20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3.
итого: 18 чисел