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

Ответы 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= 104037913
    • Автор:

      baltasar
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years