Question

составит программу на паскале

Answer 1

1. uses Math;
3. var
4.  y, x, a: real;
5. begin
6.  Write('Введите x: ');
7.  Readln(x);
8.  Write('Введите a: ');
9.  Readln(a);
10.  
11.  if (x < -2) then
12.    y := Power(x, 2.0) + Power(a, 3.0) * x
13.  else if ((x >= -2) and (x <= 4)) then
14.    y := a * Sin(x)
15.  else if (x > 4) then
16.    y := Exp(x - a)
17.  else
18.    Writeln('Вы ввели недопустимое значение x!');
19.  
20.  Write('y = ', y);
21. end.