Question

Решите уравнение на ABC Pascal.(10 вариант).

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=4e-3; var x:=3.5;
  var b:=Ln(x)+Sqr(Log10(a));
  var y:=Sin(a)+Tan(x+b);
  var D:=Power(Log10(Sqrt(Power(4.7,Sin(a))+Exp(Abs(x-a)))),1/3)+y*y;
  Writeln('b=',b:0:3);
  Writeln('y=',y:0:3);
  Writeln('D=',D:0:3)
end.

Результат
b=7.003
y=1.867
D=4.399

Answer 2

Большое спасибо за решение!

Answer 3

Пожалуйста, но достаточно было и кнопки)