Объясните,пожалуйста,поподробней!!!!! Определите, количество чисел 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
Также наши пользователи интересуются:
Составь задачу на кратное сравнение первым действием решения которой будет действие -сложения.вычитания Арбуз - рекордсмен среди продуктов питания по содержанию воды.В 1 кг арбуза на мякоть приходится 100г, а остальное-на воду.Сколько воды ты выпьешь, съев 1 кг арбуза? Какую час
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Объясните,пожалуйста,поподробней!!!!! Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 10? Паскаль var k, i : lon » от пользователя Анита Кочергина в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!