7.0



5.2. - 4


Var

x, y: real;

Begin

writeln( x);

read(x);

if x>=1 then y := sqrt(x)/2;

if (x>0) and (x<1) then y := exp(1/3*ln(x))/3;

if x<= 0 then y := exp(1/4*ln(abs(x)))/4;

writeln(y =, y:6:2);

End.

2. ( ).

-

Program P_V2;

Var

x, y: real;

Begin

writeln( x);

read(x);

if x>=1 then

y := sqrt(x)/2

else

if x>0 then

y := exp(1/3*ln(x))/3

else

y := exp(1/4*ln(abs(x)))/4;

writeln(y =, y:6:2);

End.