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
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.
