Помогите !!! Срочно надо , прошу кто знает хорошо информатику )))пожалуйста Нужно сделать...

Question

Помогите !!! Срочно надо , прошу кто знает хорошо информатику )))пожалуйста Нужно сделать программы Паскаль с этим функциями ....вообще не понимаю как это делать .Номера 52 и 54

---

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

№52

begin

 var x := ReadReal('x =');

 var F: real;

 if x <= 3 then F := x * x - 3 * x + 9</p>

 else F := 1 / (x * x * x + 6);

 Print(F)

end.

№54

begin

 var x := ReadReal('x =');

 var F: real;

 if x <= -3 then F := 9</p>

 else F := 1 / (x * x + 1);

 Print(F)

end.