Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 22:

var i, k: integer;

function F (x:integer) : integer;

begin

F:=xxx+x*x;

end;

begin

i : = 20;

readln (K) ;

while (i > 0) and (F (i) > K) do

i:=i-1;

writeln (i) ;

end.

Question

Информатика

Аделла

3 ноября, 14:43

Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 22:

var i, k: integer;

function F (x:integer) : integer;

begin

F:=xxx+x*x;

end;

begin

i : = 20;

readln (K) ;

while (i > 0) and (F (i) > K) do

i:=i-1;

writeln (i) ;

end.

+3

Ответы (1)

Знаете ответ?

Анночка · Answer 1

У тебя функция 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 чисел