Определите, количество чисел 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.

265

303

Посмотреть ответы 2

Ответы на вопрос:

riathome26

Информатика

4,4(94 оценок)

Полный код программы 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