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

gint; 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.

Ответы:
ЛИНА ГОЛУБЦОВА
04-03-2019 12:14

Картинка с текстом вопроса от пользователя Анита Кочергина

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Объясните,пожалуйста,поподробней!!!!! Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 10? Паскаль var k, i : lon » от пользователя Анита Кочергина в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!