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

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая вычисляет значение выражения s=1!+2!+3!+...+n! с использованием функции для вычисления факториала:

pascalCopy code
program FactorialSum;

// Функция для вычисления факториала числа
function Factorial(num: Integer): Integer;
var
  i: Integer;
begin
  Result := 1;
  for i := 2 to num do
    Result := Result * i;
end;

var
  n, i, s: Integer;

begin
  // Вводим значение n
  Write('Введите значение n: ');
  ReadLn(n);

  s := 0;
  for i := 1 to n do
  begin
    s := s + Factorial(i);
  end;

  // Выводим результат
  WriteLn('Значение выражения s = ', s);
end.

Программа спрашивает у пользователя значение n, затем использует цикл для вычисления суммы факториалов от 1! до n! и выводит результат.