Var
I, m: integer;
Mul:float;
Begin
Read(b);
Mul=1;
M=-1;
For i := 1 to 8 do
Mul:=mul*(b+(i+1)*(i+1)*m)/i;
M:=m*(-1);
End;
Writeln(mul);
End.
Объяснение:
Var
I, m: integer;
Mul:float;
Begin
Read(b);
Mul=1;
M=-1;
For i := 1 to 8 do
Begin
Mul:=mul*(b+(i+1)*(i+1)*m)/i;
M:=m*(-1);
End;
Writeln(mul);
End.
Объяснение: