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

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

Информатика

Аполлос

30 июля, 18:04

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

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

+5

Ответы (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.