Отыскать 1!+2!++n!. Используйте функцию нахождения факториала, т.к подается на вход и

Отыскать 1!+2!++n!. Используйте функцию нахождения факториала, т.к подается на вход и выходит итог.

Задать свой вопрос
1 ответ
var 
N, J: Word; 
sum: Integer;

function factorial(N : word) : longint;
var 
i : integer; 
f : longint;
begin   
f := 1;   
for i := 2 to n do     
f := f * i;   
factorial := f
end;

begin 
write('Введите N: '); 
readLn(N); 
sum := 0; 
for J := 1 to N do Inc(Sum, Factorial(J)); 
write('Сумма одинакова: '); 
writeLn(Sum);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт