Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.