Вычислить значение выражения - Pascal ABC (14188)

Формулировка задачи:

проверьте пожалуйста, нет ли ошибок?
var zn,s,x:real;
i:integer;
begin
write('vvedite x=');
read(x);
s:=0;
zn:=2;
for i:= -1 to -8  do
s:=(s+(i+1)*exp(i*x))/zn+1;
i:=i+1;
writeln ('s=',s);
end.

Код к задаче: «Вычислить значение выражения - Pascal ABC (14188)»

textual
var s,x:real;
    i:integer;
begin
write('vvedite x=');
readln(x);
s:=0;
for i:=2 to 9 do
s:=s+exp((1-i)*x)/i;
writeln ('s=',s:0:4);
end.

12   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ