Вычислить значение выражения - Turbo Pascal (28973)

Формулировка задачи:

Здравствуйте, помогите написать программу на паскале , где

Код к задаче: «Вычислить значение выражения - Turbo Pascal (28973)»

textual
function power(a, n: real): real;
begin
  power := exp(ln(a) * n);
end;
 
var
  g, x, y, a, w, t: real;
 
begin
  readln(a, x, w, t);
  g := 24.8 + x;
  y := (power(x, 5) * power((a * x), 1 / 3) + sqrt(abs(a + x))) / (4 * sqr(cos(a * x))) + sqr(g) + w * t;
  writeln(y);
end.

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ