Question

Помогите пожалуйста!!!

Answer 1

1. program task31133790;
2. var
3.  y: real;
4.  x: integer;
5. begin
6.  Writeln('ПЕРВОЕ ЗАДАНИЕ: ');
7.  Readln(x);
8.  y := x - (Power(x, 3)/3) + (Power(x, 5)/5);
9.  Writeln('Y = ', y);
10.  Writeln('ВТОРОЕ ЗАДАНИЕ: ');
11.  // если здесь всё-таки sin(2*x*y), то пишем Sin(2*x*y)
12.  // в таком случае оно возьмёт значение y из предыдущих рассчётов
13.  Readln(x);
14.  y := Power(2, -x) - Cos(x) + Sin(2*x);
15.  Writeln('Y = ', y);
16.  Writeln('ТРЕТЬЕ ЗАДАНИЕ: ');
17.  Readln(x);
18.  y := (Power(x, 2) - 7*x + 10)/(Power(x, 2) - 8*x + 12);
19.  Writeln('Y = ', y);
20.  Writeln('ЧЕТВЁРТОЕ ЗАДАНИЕ: ');
21.  Readln(x);
22.  y := x - 10*Sin(x) + Abs(Power(x, 4) - Power(x, 5));
23.  Writeln('Y = ', y);
24. end.