Question

Помогите решить на языке Паскаль

Answer 1

Ответ:

var a,x,y: real;

begin

write('Введите a,x: ');

readln(a,x);

if (x<0) then y:=x*x-cos(a)

else if (x<=2) then y:=a+ln(x+a)

else y:=sqrt(abs(sin(a*x)));

writeln('y = ',y);

end.