Определите, количество чисел 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) = 2 calc(6) = 2 calc(7) = 2 calc(8) = 2 calc(9) = 2 calc(10) = 2 calc(11) = 2 calc(12) = 2 calc(13) = 2 calc(14) = 2 calc(15) = 2 calc(16) = 2 calc(17) = 2 13

Ответ false логический оператор and обозначает то,что все условия должны быть выполнены а меньше 4 ,но а не равен 4-1 условие не выполняется