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

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

Доброго всем времени суток. Нужно составить написать программу решения задач на языке Паскаль. Даны x, y, z. Вычислить a, b, если:

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

textual
function Power(x, y: real): real;
begin
  Power := exp(ln(x) * y);
end;
 
var
  x, y, z, a, b: real;
 
begin
  readln(x, y, z);
  a := (sqrt(abs(x - 1)) - power(abs(y), 1 / 3)) / (1 + x * x + y * y * y);
  b := x * (arctan((z) + exp(-(x + 3))));
  writeln(a, ' ', b);
end.

7   голосов, оценка 4.143 из 5


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