Составить пользовательскую процедуру или функцию для вычисление суммы:...

Question

Составить пользовательскую процедуру или функцию для вычисление суммы:
(1^1+1)/1+(2^2+1)/(1*2)+(3^3+1)/(1*2*3)+...+(n^n+1)/(1*2*3*4*...*n);

Answer 1

Function Sum(n:integer):real;
Var
   F,St,S:real;
   i:integer;
Begin
F:=1;
S:=0;
For n:= 1 to n do
    Begin
    F:=F*n;
    St:=1;
    For i:= 1 to n do
        St:=St*n;
    S:=S+(St+1)/F;
    End;
Sum:=S;
End;
Var
   n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('Сумма: ',Sum(n))
End.

Comments

Ну ты даёшь, я час ломал голову чтобы возвести число в степень

---

А можно ещё так: Ln(b*Exp(a)) = a^b, при условии, что b<>0. На PascalABC.NET ещё проще: power(a,b) = a^b