ОЧЕНЬ СРОЧНО!! ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ!!

Question

ОЧЕНЬ СРОЧНО!! ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ!!

---

Comments

жди

---

есть проверки?

---

begin var x := ReadReal(); var y := x <= -70 ? x * x + 50 : (x > -70) and (x <= 0) ? 7 * Abs(x) : 3 * (x * x + 1); Print(y)end.

---

Спасибо всем большое!!

Answer 1

uses crt;

var x, y:real;

begin

read(x);

if x<=-70 then</p>

y:=x*x+50

else

if (-70

y:= abs(x)

else

y:=3*(x*x+1);

writeln(y);

end.

Comments

Спасибо