Предмет: Информатика, автор: Bulba17

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

Приложения:

Ответы

Автор ответа: Helper211
0

Ответ:

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.

Похожие вопросы
Предмет: История, автор: alinaserikova5L