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

Question

Валерия Шайхудинова Знаток (261), закрыт 8 лет назад

Answer 1

var
x, Fx: real;
begin
writeln('Введите х:');
readln(x);
if (x<=3) then
Fx:= sqr(x) - 3*x + 9
else
Fx := 1/(x*x*x + 6);
writeln(Fx);
end.

Answer 2

imobilazer Искусственный Интеллект (222602) 8 лет назад

if x > 3 then fx := 1/(x*x*x+6) else fx := x*x-3*x+9;