Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.