Y=x^3*tg^2*(x+1)^2+Sqrt(1/x) решение для pascal abc

Y=x^3*tg^2*(x+1)^2+Sqrt(1/x) решение для pascal abc
Гость
Ответ(ы) на вопрос:
Гость
var x, y: real; begin readln(x);           if (x<>0) then           begin y:=x*x*x*sqr(tg(x))*sqr(x+1)+sqrt(1/x);                     writeln('y=', y);           end           else writeln('нет решения');  {или, если вы прошли деление на 0, то пишите у=∞} readln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы