Question

Помогите пожалуйста!

Answer 1

===== PascalABC.NET =====

- 1 -

begin

 var (a, n, z) := (0.5, 4.7, 10);

 var F := Ln(a + n) / 78 - Sin(5 * z);

 Writeln(F)

end.

- 2 -

begin

 var (x, y, z) := ReadReal3('Введи x, y, z:');

 var a := (1 + Sqr(Sin(x + y))) /

     (2 + Abs(x - 2 * x / (1 + x * x * y * y))) + x;

 var b := Sqr(Cos(ArcTan(1 / z)));

 Println(a, b)

end.