Question

1. Составить программу для вычисления функции:

Answer 1

Ответ:

program Fx;

var

 x, fx: Double;

begin

 Write ('X = ');

 ReadLn (x);

 if x <= 3 then

   fx := x * x - 5 * x + 4

 else

   fx := 1 / (x * x * x + 8);

 WriteLn ('F (x) = ', fx :15 :10);

 ReadLn;

end.