Написать программы решения примеров ПаскальY={2x-12x {cos²xX0​

Question

Написать программы решения примеров ПаскальY={2x-12x {cos²xX<0X>0​

Answer 1

Ответ:

var X,Y: real;

begin

readln(X);

if (X

else Y:=cos(x)*cos(x);

writeln(Y);

end.