Вычислить 1!+2!+3!+...+n!, используя функцию для вычисления факториала k!=1*2*3*...*k

Вычислить 1!+2!+3!+...+n!, используя функцию для вычисления факториала k!=1*2*3*...*k

Задать свой вопрос
1 ответ
Function Fact(n: integer): longint; 
vat i: integer; 
f: longint; 
begin 
f:=1; 
for i:=2 to n do f:=f*i; 
fact:=f 
end; 

var N: integer; 
i: integer; 
sum:real; 
begin 
readln(n); 
s:=0; 
for i:=1 to n do 
s:=s+fact(i); 
writeln(s:6:0); 
end
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт