Ответ: program formula;var x:integer; p,y:real;begin Write(‘vvedute x<>0 ->’); Readln(x); if x=0 then Writeln(‘x=0 nedopustimo’) else begin p:= abs(cos(x)); if p=0 then Writeln(‘ln(0) v 4islitele’) else begin y:=ln(p)/ln(1+sqr(x*x)); Writeln(‘y=’,y:5:2) end endend.
Источник znanija.site