Question

СРОЧНО!!!!!!!!!!!! Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 17? var k, i : longint; function f(n: longint): longint; begin f:= n*n*n + 5*n*n; end; begin readln(k); i := 1; while f(i) < k do i := i + 1; if f(i)-k <= k-2*f(i-1) then writeln(i) else writeln(i-1); end.

Answer 1

Ответ:

17

Объяснение:

k от 3 до 19 будет иметь такой же результат

Answer 2

Данная программа вычисляет количество чисел k, для которых результат функции f(n) будет таким же, как и для k = 17.

В программе объявляются переменные k и i типа longint. Функция f(n) вычисляет результат выражения n^3 + 5n^2.

Затем программа считывает значение k с помощью readln(k) и инициализирует переменную i значением 1.

Далее выполняется цикл while, который продолжается, пока результат функции f(i) меньше значения k. Внутри цикла переменная i увеличивается на 1.

После окончания цикла проверяется условие if+f(i)-k <= k-2*f(i-1). Если это условие выполняется, то программа выводит значение i с помощью writeln(i), иначе выводится значение i-1.

Таким образом, программа выводит количество чисел k, для которых результат функции f(n) будет таким же, как и для k = 17.

Для определения количества таких чисел нужно последовательно проверить все значения k, начиная с 1, и подсчитать количество чисел, для которых результат функции f(n) равен результату при k = 17.

Пример решения:

var k, i, count: longint; function f(n: longint): longint; begin f := n*n*n + 5*n*n; end; begin count := 0; // инициализируем счетчик нулем for k := 1 to 100 do // проверяем значения k от 1 до 100 (можно выбрать другой диапазон) begin i := 1; while f(i) < k do i := i + 1; if f(i) - k <= k - 2*f(i-1) then count := count + 1; // увеличиваем счетчик, если условие выполняется end; writeln(count); // выводим количество чисел end.

В данном примере программа проверяет значения k от 1 до 100 и подсчитывает количество чисел, для которых результат функции f(n) такой же, как и для k = 17. Результат выводится на экран.