PascalABC.NET 3.3

1.
var c,d,x,y: real;
begin
c:=10; d:=-9;
readln(x);
y:=tan(x)*log10(abs(d+x))/(sqrt(c*x)+d);
writeln('y = ',y:7:5);
end.

Пример:
2.2
y = 0.26539

2.
var c,d,x,y: real;
begin
c:=5; d:=6;
readln(x);
y:=sqrt(sqr(x*c)+d)/(power(c,0.16)-log10(abs(d*x)));
writeln('y = ',y:7:5);
end.

Пример:
-4
y = -232.92427

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

1)
begin
  var (c,d,x):=ReadReal3('Введите c,d,x-> ');
  Writeln( 'y= ',(sin(x)/cos(x))*(ln(abs(d+x))/(sqrt(c*x)+d)):0:3);
end.

2)
begin
  var (c,d,x):=ReadReal3('Введите c,d,x-> ');
  Writeln( 'y= ',sqrt(sqr(x*c)+d)/(power(c,0.1*d)-ln(abs(d*x))):0:3);
end.