Помогите пожалуйста с паскалем ПРИМЕР: var x, y : real; a, b : integer; begin; write...

Question

Помогите пожалуйста с паскалем ПРИМЕР: var x, y : real; a, b : integer; begin; write ('Введіть x=>'); readln (x); write ('Введіть a=>'); readln (a); write ('Введіть b=>'); readln (b); if x>0 then y:= x-(sqr(x)/a)+(exp(ln(x)*3)/b) else y:= ln(abs((a-sqrt(abs(b)))*(pi-(a/(b+sqr(x)/2))))); write ('y=', y); end.

---

Answer 1

Ответ:

program pp;

var x,y:real;

begin

      readln (x);

     if x < 2.0 then

    begin

             y:=2.0*sin(x)/7.0+(sin(x)/cos(x)+x*sqr(x))/(5.0*x+6.0);

             writeln(y)

     end;

     if (x>=2.0) and (x <=5.0) then</p>

    begin

            y:=exp(-x)+1.0;

            y:=sqrt(y);

            writeln(y)

       end

end.

Объяснение:

Answer 2

Ответ:

• var x, y : real;
• begin;
• write ('Введіть x=>');
• readln (x);
• if x
• then y:= (2/7)*sin(x)+(tan(x)+power(x,3))/(5*x+6)
• else if x
• if x>5 then write ('решения нет') else write ('y=', y);
• end.

Пример работы:

---