Объясните,пожалуйста,поподробней!!!!! Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 10?
Паскаль
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.

растолковать что там функция делает не просили, просили посчитать, программа это делает куда аккуратнее и нагляднее. все

полный код программыvar    k, rk, n: longint;function f(n: longint): longint;begin    f := n * n * n;end;function calc(k: longint): longint;var    i: longint;begin    i := 1;    while f(i) < k do        i := i + 1;        if f(i) - k <= k - f(i - 1) then        calc := i    else calc := i - 1;end;begin    rk := calc(10);    n := 0;    for k := 1 to 1000 do        if calc(k) = rk then         begin            writeln('calc(', k, ') = ', calc(k));            n := n + 1;        end;        writeln(n);end.выводcalc(5) = 2calc(6) = 2calc(7) = 2calc(8) = 2calc(9) = 2calc(10) = 2calc(11) = 2calc(12) = 2calc(13) = 2calc(14) = 2calc(15) = 2calc(16) = 2calc(17) = 213