Question

Запишите математическое выражение на языке Pascal

Answer 1

Ответ:

var

 x:integer;

 z:real;

begin

 read(x);

 z := (Ln(abs(cos(x)))) / (Ln(1+x*x));

 write(z);

end.