Question

Напишите программу вычисления значения выражения в Паскаль:

Answer 1

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

begin

 var t, k, m, l, x, y, n: double;

 Read(t, k, m, l, x, y, n);

 var z := Sqr((t * t - k * k) / (Sqr(Sqr(m)) - l * Sqr(Sqr(l)))) +

   Sqrt(Abs((Sqrt(x) + y) / (n - Abs(x)) + 4));

 Println(z)

end.