Question

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

Answer 1

Ответ:

var X,Y: real;

begin

readln(X);

if (X<0) then Y:=2*x-12*x

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

writeln(Y);

end.