Задание
Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k = 25. Значение k = 25 также включается в подсчёт количества различных значений 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.