Пожалуйтса помогите Прошу. Создайте программу ** языке Pasсal для решения задачи ....

Question

Пожалуйтса помогите Прошу. Создайте программу на языке Pasсal для решения задачи . Вычислите значение функции. Значение переменной х вводиться с клавиатуры

Answer 1

Код программы:

var x,y:real;

begin

writeln('Введите x');

readln(x);

if (x >= 2) then

 y := 2.4*x*x*x + 3*x

else

 y := -14*cos(x)+ 2;

writeln('y = ', y);

end.