Найдите ошибку (Паскаль)

В задании нужно было найти сумму чисел 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.

Question

Информатика

Леонид

26 марта, 16:16

Найдите ошибку (Паскаль)

В задании нужно было найти сумму чисел 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.

+1

Ответы (2)

Знаешь ответ?

Геронтий · Answer 1

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

Прасковья · Answer 2

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

Найдите ошибку (Паскаль)В задании нужно было найти сумму чисел e^1+e^2 + ... e^nprogram upr1;var i, n:integer;e, s: real;beginreadln (n);s:=0;for i: = 1 to n doe: = 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.