Question

Помогите пожалуйста - это Паскаль, напишите программу))

Answer 1

const a = 5.8;      Pi = 3.14;var x, y, k, P, S, t: real;begin     t := sqrt(sin(x - 4));     x := -3;     while (x <= 3) do     begin          if (t < 5) then             y := sin(Pi / 2 + x) / cos (Pi / 2 - x)          else              y := Ln(a + x) / Power(a, 2);          if (y < 0) then k := k + 1;          writeln('x = ', x, '; y = ', y);
          x := x + 0.5;
     end;
     if (t >= 0) then
     begin
          P := P * t;
          {Сюда вставить нужно вычисление S, я не понял, что значит тот знак:)}
     end;
     Writeln('k = ', k, '; P = ', P, '; S = ', S);
end.