Вопрос по информатике:
Дано целое положительное значение (m). Требуется вычислить сумму:
1+1/1!+1/2!+1/3!...+1/m!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.07.2017 17:35
- Информатика
- remove_red_eye 2803
- thumb_up 29
Ответы и объяснения 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.
- 06.07.2017 06:45
- thumb_up 33
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.
- 07.07.2017 05:02
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.