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

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

Задать свой вопрос
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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт