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

Katyaoveskina · 28.12.2010, 10:43

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

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

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

А так хочется экзамен сдать!!!

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

Max · 28.12.2010, 10:47

Какой язык?

Katyaoveskina · 28.12.2010, 10:50

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

Vladimir_S · 28.12.2010, 14:18

Цитата:

Сообщение от Katyaoveskina

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 · 28.12.2010, 18:29

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

Код:

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.

28.12.2010, 10:43	#1 (permalink)
Katyaoveskina Новичок Регистрация: 28.12.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Нужна помощь в решении задачи Училка в универе всех нас замучила - не дает допуск на экзамен без решенной задачи. Нужно подсчитать сумму ряда 1^1+2^2+3^3+...+n^n Решение с помощью вычисления функции exp она не принимает, говорит нужно использовать два вложенных цикла for i:=1 to n do for j:=1 to n do ........................... а что дальше писать понятия не имею!!! А так хочется экзамен сдать!!! 2.1 Формулируйте вопрос грамотно. Помните, что правильно сформулированный вопрос - уже половина решения. Создавайте темы с осмысленным названием, топики с заглавием ПОМОГИТЕ!!!!!!!!!! будут удаляться. Модератор.

28.12.2010, 10:47	#2 (permalink)
Max Компьютерщик Регистрация: 12.02.2008 Адрес: ХМАО Сообщений: 11,625 Записей в дневнике: 36 Сказал(а) спасибо: 9 Поблагодарили 1 раз в 1 сообщении Репутация: 26467	Какой язык? __________________ Не задавай вопросов, если не знаешь, что делать с ответом.

28.12.2010, 18:29	#5 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Вот полностью рабочий вариант: Код: 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. __________________ Убить всех человеков!

28.12.2010, 10:43
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Поищите информативные ответы в похожих темах Нужна помощь в решении задачи Pascal Очень нужна помощь в решении лабораторных на языке Паскаль Нужна помощь в решении задачи Нужна помощь в решении двух задач

28.12.2010, 10:50	#3 (permalink)
Katyaoveskina Новичок Регистрация: 28.12.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	на паскале надо написать

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070