7.0




8.3.


 

, . , , .

, , , :

.

.

, . , . , .

, , .

(. 8.2) .

 

Program Primer_2;

Var

a, Z: real;

Function ST (x: real; n: integer): real;

var

i: integer;

P: real;

begin

P := 1;

for i := 1 to n do P := P * x;

ST := P;

end;

Begin { }

writeln( );

read(a);

Z := (ST(a, 5) + ST(1/a, 5)) / (2 * ST(a, 7));

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

End.

, Z.