Question

Напишите программу вычисления выражения: (паскаль) s =1!+2!+3!+...+ н! Используйте ПРОЦЕДУРУ вычисления факториала!

Answer 1

Ответ:

var a,b,i,c,l:integer;

procedure F(n:integer);

begin

   a:=a*n;

end;

begin

   c:=0;

   a:=1;

   write('Введите количество аргументов: '); readln(l);

   for i:=1 to l do begin

       F(i);

       c:=c+a;

   end;

   write(c);

end.

Answer 2

Конечно! Вот программа на языке Pascal, которая вычисляет сумму факториалов от 1 до n:

pascalCopy code
program FactorialSum;

var
  n: integer;

procedure CalculateFactorial(var result: integer; num: integer);
var
  i: integer;
begin
  result := 1;
  for i := 1 to num do
    result := result * i;
end;

procedure CalculateSumOfFactorials(n: integer);
var
  i, s, factorial: integer;
begin
  s := 0;
  for i := 1 to n do
  begin
    CalculateFactorial(factorial, i);
    s := s + factorial;
  end;
  writeln('Сумма факториалов от 1 до ', n, ' равна: ', s);
end;

begin
  writeln('Введите значение n: ');
  readln(n);
  CalculateSumOfFactorials(n);
end.

В этой программе есть две процедуры:

1. CalculateFactorial вычисляет факториал числа и возвращает его в переменной result.

2. CalculateSumOfFactorials вычисляет сумму факториалов от 1 до n.

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