Question

Помогите пожалуйста ооочень срочно 30б

Answer 1

1)program wk;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(x*x*x)/3+(x*x*x*x*x)/5;
Writeln('y =',y)
end.
2)program wk2;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x/2- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program wk3;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=(x*x-7*x+10)/(x*x-8*x+12);
Writeln('y =',y)
end.
4)program wk4;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+Abs(x*x*x*x-x*x*x*x*x);
Writeln('y =',y)
end.