Опять паскаль!!!! Люди знающие помогите пожалуйста!!!!!!!!!!!!!!! Задание во вложении!!!!!
Answers & Comments
mnv1962
{конструкция else для того если будут введены отрицательные x y} var x,y:real;begin readln(x,y); if (x*x*x*x*x+y)>0 then writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x))) else writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x))); end.
Answers & Comments
var
x,y:real;begin
readln(x,y);
if (x*x*x*x*x+y)>0 then
writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x)))
else
writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x)));
end.