Question

Вычислить значение заданного выражения, используя процедуры и функции. Паскаль​

Answer 1

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

function Ex(a, b: real) := Exp(a + 3 * b);

function Md(a, b: real) := Abs(Ex(a, b) + 8);

procedure Pz(a, b: real; var z: real);

begin

 var (c, d) := (Ex(a, b), Md(a, b));

 z := c - Cos(c / d) - Sqrt(Sqrt(d));

end;

begin

 var a, b, z: real;

 Read(a, b);

 Pz(a, b, z);

 Print('z =', z)

end.