Question

7 задание прошу помогите

61f3d2f0923a778318cd67e533eed4b2.pdf

Answer 1

Program prog;

var a, b, y: real;

begin

   read(a);

   read(b);

   y:=Ln(Abs( (Exp(-Sqr(a) + b) + 2 * sqrt(a*b) ) / 2*Sqr(Sin( a / b )) + b ));

   writeln(y);

end.

Программа считает значение y при вводе a и b и выводит результат. А если нужно только значение y записать на Паскале, но не считать. тогда нужна будет только одна строка - y:=...