Помогите, пожалуйста, написать программу в Паскале.
Напишите программу вычисления выражения: s=1!+2!+3!+…+n! Используйте функцию вычисления факториала.
Ответы
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
function F(n: integer):int64 :=
n <= 1 ? 1 : 2.To(n).Aggregate(int64(1), (p, q)-> p * q);
begin
Range(1, ReadInteger('n=')).Select(t -> F(t)).Sum.Println
end.
n= 10
4037913
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад