Question

Вычислить значение функции Y(x). Значения переменных a и x должен задавать пользователь

Answer 1

var x,y,a: real;
begin
readln(x,a);
if x<sqrt(a) then y:=sqr(ln(a))*exp(ln(sin(x))*3);
if x=sqrt(a) then y:=(sin(x)/2)*sqr(ln(a));
writeln(y);
end.