Написать программу в паскаль

Question

Написать программу в паскаль

---

Answer 1

Program K_1;var x:integer;y:real;begin
writeln('Введите x');readln(x);y:=sin(pi*x)+sqr(x)-sqrt(exp(x))/(cos(pi*x)+2-(sin(x)/cos(x)));writeln('y=',y:0:2);
readlnend.