Помогите, пожалуйста, написать программу в Паскале. Напишите программу вычисления...

Question

Помогите, пожалуйста, написать программу в Паскале. Напишите программу вычисления выражения: s=1!+2!+3!+…+n! Используйте функцию вычисления факториала.

Answer 1

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