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

Популярные вопросы в разделе