Ответы и объяснения

2013-12-23T20:28:02+04:00
Uses crt;
var y,x:real;
begin
read(x);
if x<=0 then
y:=ln(abs(x))
else
y:=sqrt(abs(x*x-2));
if y<=0 then
writeln(exp(y+0.5))
else if y<=2.2 then
writeln(ln(y)/ln(10))
else
writeln(power((abs(y-1)),2/3):4:2);
end.