Question

Помогите,я вас очень прошу(((( Ибо 2 получу. Она мне не нужна( Pascal

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,x):=(Sqrt(3),Tan(Pi/5),Log10(7));
  var z:real;
  if x<b then z:=ArcCos(a*a/(a*a+x*x))
  else
    if x=b then z:=Ln(2+Cos(b*x))
    else z:=Abs(Tan(b*x))+2**(-a*x);
  Writeln('z(x)=',z)
end.