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