Question

Помогите! Вычислить в паскаль:

Answer 1

Первая программа
var  x,y: real;
begin 
read(x); 
y := x-Power(x,3)/3+Power(x,5)/5; 
write('y = ', y );
end.

Вторая
var  x,y: real;
begin 
read(x); 
y := Power(2, -x)-cos(x)+sin(2*x*y); 
write('y = ', y );
end.

Третья
var  x,y: real;
begin 
read(x); 
y := (Power(x,2)-7*x+10)/(Power(x,2)-8*x+12); 
write('y = ', y );
end.

Четвертая
var  x,y: real;
begin 
read(x); 
y := x-10*sin(x)+abs(power(x,4)-power(x,5)); 
write('y = ', y );
end.