Составить программу для решения системы уравнений. значение x вводится с клавиатуры​

Question

Составить программу для решения системы уравнений. значение x вводится с клавиатуры​

---

Answer 1

Program M;

Begin

real x, y;

write("Choose x:");

readln(x);

if (x>0)

then

y=sin(x)

else if (x<0)</p>

then

y=cos(x)

else y=1

writeln("y=");readln(y);

end

Comments

я не помню пунктуацию Паскаля. ее самт поставьте

---

хорошо. Это я могу

---

спасибо