Question

напишите программу в Паскаль:

          x^2-3x+9, если х<=3;

F(x)=

         1/(х^3+6), если x>3.

         

Answer 1

var x, y:integer;

begin

readln(x);

if (x<3) or (x=3) then y:=sqr(x)-3*x+9
      else
y:=1/(sqr(x)*x+6);

writeln('Функция от Х = 'x);

readln

end. 

Лайк пожалуйста)