Нужна помощь в решении задачи

[Katyaoveskina]

Нужна помощь в решении задачи

Училка в универе всех нас замучила - не дает допуск на экзамен без решенной задачи.

Нужно подсчитать сумму ряда 1^1+2^2+3^3+...+n^n

Решение с помощью вычисления функции exp она не принимает, говорит нужно использовать два вложенных цикла
for i:=1 to n do
for j:=1 to n do
........................... а что дальше писать понятия не имею!!!:tehnari_ru_281:
А так хочется экзамен сдать!!!:tehnari_ru_837:

2.1 Формулируйте вопрос грамотно. Помните, что правильно сформулированный вопрос - уже половина решения.
Создавайте темы с осмысленным названием, топики с заглавием ПОМОГИТЕ!!!!!!!!!! будут удаляться. Модератор.

 

[Max]

Какой язык?

 

[Katyaoveskina]

на паскале надо написать

 

[Vladimir_S]

for i:=1 to n do for j:=1 to n do ........................... а что дальше писать понятия не имею!!!

Дальше-то? А что-нибудь в таком роде:

S:=0;
for i:=1 to n do
  begin
   p:=i;
   for j:=1 to i-1 do 
    p:=p*p;
   S:=S+p;
  end;

 

[AlexZir]

Вот полностью рабочий вариант:

var i,j,n:integer;
s,p:longint;
begin
readln(n);
s:=0;
for i:=1 to n do begin
p:=i;
for j:=2 to i do
p:=p*i;
s:=s+p;
end;
writeln('s=',s);
readln
end.