Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Дано целое положительное значение (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.