Question

СРОЧНО!!!!Помогите решить в паскале

Answer 1

Ответ:

var a,x: real;

begin

writeln('Введите x');

readln(x);

if x<-3 then

begin

writeln('Нет ответа')

end;

a:=0;

a:= Sin(Sqrt(Sqr(x+3)*x))/(Sqr(x)+1);  

writeln(a);

end.