Question

Написать программу для решения следующей задачи:
для заданного а вычислить принадлежащий интервалу (PI,2PI) корень уравнения ln ( ctg(x) - 1 ) = a

Answer 1

var x, a : real;

begin
  readln(a);
 
  x := arctan(1/(power(E, a) + 1)) + PI;
 
  writeln(x);
end.