Нужна помощь! Мне нужны только сами программы, можно даже не все, а, хотя бы два номера....

Question

Нужна помощь! Мне нужны только сами программы, можно даже не все, а, хотя бы два номера. Но желательно, конечно, все.Заранее спасибо

---

Answer 1

1) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=x-(sqr(x)*x/3)+(sqr(x)*sqr(x)*x)/5;

writeln('y = ',y);

end.

2) var y,x,z:real;

begin

writeln('Введите значение x: ');

readln(x);

writeln('Введите значение y: ');

readln(y);

z:=exp(-x*ln(2))-cos(x)+sin(2*x*y);

writeln('z = ',z);

end.

3) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);

writeln('y = ',y);

end.

4) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=x-10*sin(x)+abs(sqr(x)*sqr(x)-sqr(x)*sqr(x)*x);

writeln('y = ',y);

end.