Question

Помогите решить! Срочно! Задача на Паскале
Найти значение y
y ={ sin^2 x+2 если x <0
корень из х + корень х^2+1 если x>=0

Answer 1

Program advb;
Var 
 y,x:real;
Begin
  Write('x= '); 
  Readln(x);
  if x<0  then
   y:=sqr(sin(x))+2
   else y:=sqrt(x)+sqrt(x*x+1);
  Writeln('y= ',y);
End.