Дано целое положительное значение (m). Требуется вычислить сумму: 1+1/1!+1/2!+1/3!...+1/m!
Дано целое положительное значение (m). Требуется вычислить сумму:
1+1/1!+1/2!+1/3!...+1/m!
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы