Question

Помогите пожалуйста решить задачу 3

Answer 1

Var
   St,S:real;
   n,i:longint;
Begin
S:=1;
Write('n = ');ReadLn(n);
Write(1);
For n:= 2 to n do
    Begin
    St:=n;
    For i:= 1 to n-1 do
        St:=St*n;
    Write(' + ',St);
    S:=S+St;
    End;
WriteLn(' = ',S);
End.


Пример работы программы:

n = 13
1 + 4 + 27 + 256 + 3125 + 46656 + 823543 + 16777216 + 387420489 + 10000000000 + 285311670611 + 8916100448256 + 302875106592253 = 312086923782437