Question

Помогите, пожалуйста. Нужно разработать программу на языке TurboPascal, которая вычесляет математическое выражение. Переменные a и b задаются пользователем. ​

Answer 1

Ответ:

var

 a, b, y : double;

begin

 writeln('Input a & b :');

 readln(a);

 readln(b);

 y:= abs((exp(-sqr(a)+b) + 2*sqrt(a*b))/( (1-cos(2*(a/b))) +b ));

 y:= ln(y);

 writeln(y:2:2);

end.