Переведите в паскаль

Question

Переведите в паскаль

---

Answer 1

Var
x, rez: real;
begin
readln(x);
rez := sin(sqrt(x + 1)) - sin(sqrt(x - 1));
writeln(rez);
end.

Comments

Как приятный бонус можно доиграться, что модераторы удалят ответ, который не соответствует поставленному вопросу.

---

-_-

---

Сразу не заметил,rez := sin(x + 1) - sin(x - 1); x+1,х-1 под корень же надо

---

А там и стоят корни

---

Программа совершенно верно написана

---

19:59 fwwffwfw отметил нарушение в решении Пользователя MagicSpace
19:53 fwwffwfw отметил решение пользователя MagicSpace как лучшее

---

Вы бы уж сначала думали, а потом что-то делали...

---

Эмм, тут стоят корни, как бы

---

Наверно вначале не было, а автор вопроса экран не обновил.

---

Это бывает у новичков.

Answer 2

Sin(Sqrt(x+1))-Sin(Sqrt(x-1))