Помогите пожалуйста с информатикой, кто разбираетсяПрограмма паскаль

Question

Помогите пожалуйста с информатикой, кто разбираетсяПрограмма паскаль

---

Answer 1

Var
x,y: real;
begin
readln(x);
if x<0 then y:=sqr(sin(x))+2 else<br>y:=sqrt(x)+sqrt(sqr(x)+1);
writeln('y=',y);
end.

Comments

Вы в этом разбираетесь?

---

да.

---

Спасибо