Question

Помогите !!! Решите задание №58 в программе Паскаль !!! Умоляю , очень нужно , прошу !!! Мне нужно , что бы я вписывал нужные значение X и Y , а сама программа подставляла эти значение в систему Z и давала ответ !!!

Answer 1

Ответ:

var x,y,z: real;

begin

readln(x,y);

if (x=y) then

begin

if (x<0) then z:= cos(x*x*x)*cos(x*x*x)-tan(y*y)

else z:= tan(2*x*x-3*y);

end

else

z:=power(abs(x-y),(1/3));

write('z = ',z);

end.