Для данного x вычислить значение функции:Pascal

Question

Для данного x вычислить значение функции:Pascal

Answer 1

Var x,y:real;
begin
 write('vvedite x ');
 readln(x);
if (x>1) then y:=x*x*x-x else y:=x*x*x-sin(x);
writeln('znachenie functsii=',y)
end.

Comments

Спасибо! случайно нарушение отметил