Question

Найдите ошибку (Паскаль)
В задании нужно было найти сумму чисел e^1+e^2+...e^n

program upr1;
var i,n:integer;
e,s: real;
begin
readln (n);
s:=0;
for i:= 1 to n do
e:= power (e,i);
s:= s+e;
writeln (s);
end.

Answer 1

Эм, а ты n вводишь? Или это константа, не описано ж значение

Answer 2

переменной е не задано начальное значение, есть функция еxp(x) возвращает е в степени х, а еще s:=s+e находится за пределами цикла хотя должна быть в нем.

Answer 3

program upr1;
var i,n:integer;
s,exp,e: real;
begin
readln (n);
s:=0;
exp:=e;
begin
e:= power (e,i);
for i:= 1 to n do
s:= s+e;
end;
writeln (s);
end.

Answer 4

Исправил, но кажется, опять не так

Answer 5

program upr1;
var i,n:integer;
s: real;
begin
readln (n);
s:=0;
for i:= 1 to n do
s:= s+exp(i);
writeln (s);
end.