Question

РЕЬЯТ ПОМОГИТЕ СРОЧНООО Напишите программу вычисления выражения: s=1!+2!+3!+...+n! Используйте функцию вычисления факториала

Answer 1

Var n,i,s:integer;
function fact(k:integer):integer;
var j,f:integer;
begin
f:=1;
for j:=1 to k do f:=f*j;
fact:=f;
end;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do s:=s+fact(i);
writeln('s=',s);
end.

Пример:
n=5
s=153

Answer 2

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
function F(n:Integer):integer:=Range(1,n).Aggregate(1,(i,j)->i*j);

begin
  Writeln(Range(1,ReadInteger('n=')).Select(x->F(x)).Sum);
end.

Тестовые решения:
n= 5
153

n= 10
4037913

Answer 3

Для решения данной задачи мы можем написать программу на любом языке программирования, которая будет использовать функцию вычисления факториала. Вот пример программы на Python:

def factorial(n):
    if n == 0:
        return 1
    else:
        return n * factorial(n-1)

def calculate_s(n):
    s = 0
    for i in range(1, n+1):
        s += factorial(i)
    return s

n = int(input("Введите значение n: "))
result = calculate_s(n)
print("Значение выражения s =", result)

В этой программе мы сначала определяем функцию `factorial`, которая вычисляет факториал числа. Затем мы определяем функцию `calculate_s`, которая вычисляет значение выражения `s` для заданного `n`. Далее мы запрашиваем у пользователя значение `n` и вычисляем значение `s` с помощью функции `calculate_s`, после чего выводим результат на экран.

Эта программа позволит вычислить значение выражения `s` для любого заданного `n` с использованием функции вычисления факториала.