Срочно нужна помощь! Программа в Паскаль

Question

Срочно нужна помощь! Программа в Паскаль

---

Comments

Двух выражений в одной программе? или по отдельности?

---

Стоп. А во второй половине номера x выступает как радианная или градусная мера угла?

Answer 1

Номер 18.1

Program n_1;

uses math;

var x, y, z, a: double;

begin

   x:=1.542;

   y:=-3.261;

   z:=80.005;

   a:=ln(sqrt(exp(x-y)+x*abs(y)+z))/ln(10);

   writeln(a:0:2);

end.

Номер 18.2 (x - радианная мера угла)

Program n_2;

uses math;

var x, b: double;

begin

   x:=1.542;

   b:=(x/sin(x))-(x*x*x)/(sin(x)*sin(x)*sin(x))+(x*x*x*x*x)/(sin(x)*sin(x)*sin(x)*sin(x)*sin(x));

   writeln(b:0:2);

end.

Comments

Я как бы тоже в паскале не очень, я по другим языкам

---

Ну double на real можно заменить

---

работать будет