Задание

Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k = 10. Значение k = 10 также включается в подсчёт различных значений k.

var k, i : longint;

function f(n: longint) : longint;

begin

f := n * n * n;

end;

begin

readln(k);

i := 1;

while f(i) < k do

i:= i+1;

if f(i)-k <= k-f(i-1) then

writeln(i)

else writeln(i-1);

end.