Решение математических уравнений в Паскале

[rustik24]

Можете проверить вот эту задачу.


var
x,y:real;
begin
readln (x);
if (arctan(x)<>0) and (12-x>=0) then
begin
y:=(exp(1/5*ln(12-x)))/(arctan(x));
writeln ('y=',y:10:3);
end
else
writeln ('y NO');
readln;
end.

[rustik24]

Заранее спасибо)

[ViktorR]

y:=(exp(1/5*ln(12-x)))/(arctan(x));

Таким образом, условие
(12-x>=0) - неверно. Должно быть (12-x>0)

Так думаю ...

[rustik24]

спасибо за помощь