Question

Помогите решить задачу

Answer 1

uses crt;

var a:real;
var b:real;
var c:real;
var d:real;
var h:real;

begin
        { вводим значения }
        writeln('Enter a:'); readln(a);
        writeln('Enter c:'); readln(c);
        writeln('Enter d:'); readln(d);
        writeln('Enter h:'); readln(h);

        { вычисляем }
        b := d - sqrt(c / (c + abs(cos(a * h * h) - sin(a * h))));

        { выводим результат }
        writeln('b = ', b:15:15);

        { задержка }
        readln(a);
end.