Напишите в ответе наибольшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 16. var k, i : longint; function f(n: longint): longint; begin f : = n * n * n; end; function g(n: longint): longint; begin g : = 3*n + 3; end; begin readln(k); i : = 1; while f(i) < g(k) do i : = i+1; writeln(i) end.

Вот значения при которых мы получим такой ответ:
9 10 11 12 13 14 15 16 17 18 19 20
Наибольшее = 20.

Прости, нашел я это глупым методом поставив цикл for k:0 to 1000000
и выводя все значения. Ибо нету времени разбираться... Не знаю так-же что такое longint , потом обязательно для себя рассмотрю что это :)

Вот пример того как я это нашел, хоть медот и тупой, но он работает:
var k, i,max,m : longint;
 function f(n: longint): longint; 
begin f := n * n * n; 
end; 
function g(n: longint): longint;
 begin g := 3*n + 3; 
end; 
begin i := 1; 
for k:=0 to 1000000 do begin
while f(i) < g(k) do i := i+1;
 if i=4 then writeln(k);
end;
end.