Question

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

Answer 1

Программа:

Pascal:

var x,y,z: real;

function Root3(num: real): real;

begin

if num = 0 then Root3 := 0

else if num > 0 then Root3 := exp(ln(num) / 3)

else Root3 := -exp(ln(-num) / 3)

end;

begin

write('x = '); readln(x);

write('y = '); readln(y);

z := (x + pi * Root3(y))/(y + pi);

writeln('z = ', z) ;

end.

Вычислите значение функции z(x, y) = (x + п*y^(1/3))/(y+п). Значение переменных x и y задайте самостоятельно путем ввода с клавиатуры.