Найдите ошибку (Паскаль) В задании нужно было найти сумму чисел 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.
Переменной е не задано начальное значение, есть функция еxp(x) возвращает е в степени х, а еще s:=s+e находится за пределами цикла хотя должна быть в нем.
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.
Исправил, но кажется, опять не так
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.
Эм, а ты n вводишь? Или это константа, не описано ж значение