Question

Помогите написать программу!!!

Answer 1

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

begin

 var s := Seq((0.0, 1.0), (0.08, 0.09), (1.0, 0.00),

     (0.5, 3.0), (8.0, 10.0));

 foreach var p in s do

 begin

   var (x, y) := (p[0], p[1]);

   var z := (x + cos(x)) ** (1 / 3) / (x + y) ** 3 -

       Exp(3 * x);

   Writeln('x=', x:4:2, ', y=', y:5:2, ', z=', z)

 end

end.