Question

Помогите решить эту задачу))) Пожалуйста

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var x:=-4.0;
  while x<=4 do begin
    Writeln(x:4:1,x*x*x-x*x+16*x-43:10:3);
    x+=0.5
    end
end.

Результат:
-4.0  -187.000
-3.5  -154.125
-3.0  -127.000
-2.5  -104.875
-2.0   -87.000
-1.5   -72.625
-1.0   -61.000
-0.5   -51.375
 0.0   -43.000
 0.5   -35.125
 1.0   -27.000
 1.5   -17.875
 2.0    -7.000
 2.5     6.375
 3.0    23.000
 3.5    43.625
 4.0    69.000