СРОЧНО!!!!!!!!!!!! Определите, количество чисел 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.
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.
More Questions From This User See All