Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 17?
var k, i : longint;
function f\(n: longint\): longint;
begin
f:= n*n*n + 5*n*n;
end;
begin
readln\(k\);
i := 1;
while f\(i\) < k do
i := i + 1;
if f\(i\)-k <= k-2*f\(i\-1\) then
writeln\(i\)
else writeln\(i\-1\);
end.