Объясните,пожалуйста,поподробней!!!!! Определите, количество чисел 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.
Ответы
Ответ дал:
0
полный код программы
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
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
Ответ дал:
0
растолковать что там функция делает не просили, просили посчитать, программа это делает куда аккуратнее и нагляднее. все
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад