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

@typak · Регистрация: 20.06.2012

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

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

ВАСИЛЕВС · 20.06.2012, 19:38

Pascal

program sumfactorial;
 
function fact(n: integer): longint;
begin
    if (n = 0) then
        fact := 1
    else
        fact := n * fact(n - 1);
end;
 
var
    i, n: integer;
    
begin
write('Введите n: ');
readln(n);
    for i := 1 to n do
    n := n + fact(i);
write('1!+2!+3!+...+N! = ', n);
end.

@fretyno · 24.06.2012, 12:41

или так

Pascal

Program sumfact;
var  i,n,s,s1,f : integer;
begin
writeln('Введите число: ');
readln(n);
s:=0;
s1:=1;
f:=1;
for i:=1 to N do
begin
s1:=s1*f;
f:=f+1;
s:=s+s1;
end;
writeln('Сумма факториалов = ',s);
end.

@typak 0 / 0 / 0 Регистрация: 20.06.2012 Сообщений: 57
		1
	Дано целое число N (N > 0). Используя один цикл, найти сумму 20.06.2012, 18:39. Показов 1792. Ответов 2 Метки нет (Все метки) Дано целое число N (N > 0). Используя один цикл, найти сумму 1!+2!+3!+...+N! 0

	24.06.2012, 12:41

Опции темы

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

Решение