Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N!

@Lady_vamp · Регистрация: 10.04.2010

Студворк — интернет-сервис помощи студентам

Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N! (выражение N! — N–факториал — обозначает произведение всех целых чисел от 1 до N: N! = 1•2•…•N). Чтобы избежать целочисленного переполнения, проводить вычисления с помощью вещественной переменной и вывести его как вещественное число.

@Leshiy27 · 16.01.2013, 19:12

Pascal

var
i,n,f,sum:integer;
begin
writeln('Vvedite n');
readln(n);
f:=1;
sum:=0;
for i:=1 to n do
begin
f:=f*i;
sum:=sum+f;
end;
writeln('Summa ravna',sum);
readln
end.

@Lady_vamp 0 / 0 / 0 Регистрация: 10.04.2010 Сообщений: 36
		1
	Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N! 16.01.2013, 18:21. Показов 25127. Ответов 1 Метки нет (Все метки) Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N! (выражение N! — N–факториал — обозначает произведение всех целых чисел от 1 до N: N! = 1•2•…•N). Чтобы избежать целочисленного переполнения, проводить вычисления с помощью вещественной переменной и вывести его как вещественное число. 0

	16.01.2013, 19:12

Опции темы

Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N!

Решение