напишите программу в Паскаль: x^2-3x+9, если х<=3; F(x)= 1/(х^3+6), если x>3.

Question

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

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

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<br>      else
y:=1/(sqr(x)*x+6);

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

readln

end. 

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