Помогите пожалуйста!! Срочно!! По представленной блок - схеме Составьте программу...

Question

Помогите пожалуйста!! Срочно!! По представленной блок - схеме Составьте программу вычесления функции у при заданном значении с клавиатуры значении х.

---

Comments

а где задание?

Answer 1

var x: integer; y: real;

begin

readln(x);

If x<=-10 then  </p>

y:=x*x+25-x

else If (-10

y:=3+x

else y:=1/x;

writeln(y);

end.