Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 24: var i, k: integer;
function F(x:integer):integer;
begin
F:=x*x*x;
end;
begin
i := 12;
readln(K);
while (i>0) and (F(i) > K) do
i:=i-1;
writeln(i);
end.

BlankDawn    2   09.06.2020 20:55    2