Дано целое положительное значение (m). Требуется вычислить сумму:

1+1/1!+1/2!+1/3! ... + 1/m!

Question

Информатика

Ануфрий

8 сентября, 11:54

Дано целое положительное значение (m). Требуется вычислить сумму:

1+1/1!+1/2!+1/3! ... + 1/m!

+2

Ответы (2)

Знаете ответ на вопрос?

Венедим · Answer 1

Var

i, m: integer;

f:longint;

s: real;

begin

readln (m) ;

f : = 1;

for i : = 1 to m do

begin

f : = f * i;

s : = s + 1 / f;

end;

writeln (s) ;

end.

Вениамин · Answer 2

Var

factm:longint;

m, i:byte;

sum, y:real;

begin

sum:=0;

factm:=1;

write ('Введите значение m=') ; read (m) ;

for i:=2 to m do

factm:=factm*i;

y: = (1/factm) ;

sum:=sum+y;

writeln ('Сумма=', sum) ;

end.

Дано целое положительное значение (m). Требуется вычислить сумму:1+1/1!+1/2!+1/3! ... + 1/m!

Дано целое положительное значение (m). Требуется вычислить сумму:

1+1/1!+1/2!+1/3! ... + 1/m!