Помогите сделать программу ** Pascal

Question

Помогите сделать программу на Pascal

---

Answer 1

Program pr1;
var s, i, j, N;
begin
readln(N);
s:=0;
for i:=1 to N do begin
for j:=1 to i do
s:=s*j; //честно говоря, задание некорректно, так как под знаком произведения ничего нет. Если имеется ввиду перемножение числа само на себя заменить j на s.
s:=s+s
end;
writeln('The sum is ', s)
end.

Comments

окей, спасибо )

---

Еще добавлю от себя, что в цикле можно чуть удобоваримее реализовать все таки сложение в конце, запускаем еще одну переменную в var, оттуда в перемножение вместо s вставляем tmp, а в сложение: s=s+tmp;
и все. Так выглядит чище.

---

как я понял это переменная и есть tmp ?

---

по сути, мы просто складываем результаты перемножения. У меня там получилось удваивание, но это частный случай. Блок кода:

---

s=s*j

---

меняем на tmp=tmp*j

---

затем просто складываем с эской: s=s+tmp

---

в конце снова единичим tmp - tmp:=1;

---

тогда возьмем все возможные случаи. но опять же некорректная запись знака произведения все косит, не совсем ясно, что мы должна там перемножать :)

---

ну ладно, вроде разобрался )))