Решите пожалуйста сложность 8 класса срочно

Question

Решите пожалуйста сложность 8 класса срочно

---

Comments

Прога нужна? На Паскале?

Answer 1

Var X,Y:real;
Begin
1Write('X = ');ReadLn(X);
if X<0 then Y:=Sqr(Sin(X))+2*X<br>else Y:=sqrt(X)+Sqrt(X*X+1);
Write('Y = ',Y)
End.