Question

Задача: Подсчитать сумму 1!+ 2! + 3! +...N! Где, например, 5! --факториал числа 5 и 5! = 1*2*3*4*5 Формат ввода: На вход подается два натуральное число n не превосходящих 10. Формат вывода: Целое число - результат вычисления формулы. Пример входных данных 5 Пример выходных данных 153 Пояснение: Отсутствует. На паскале

Answer 1

Ответ:

program hello;

var i,x,y,y1:integer;

begin

y:=1;

y1:=0;

write('Введи число ');

read(x);

while x>=1 do

begin

y:=1;

for i:=1 to x do

begin

y:=y*i;

end;

y1:=y1+y;

x:=x-1;

end;

write(y1:2);

readln;

end.

Answer 2

Для решения этой задачи на Pascal можно использовать следующий код:

pascalCopy code
program FactorialSum;

var
  n, i, factorial, sum: integer;

begin
  // Вводим значение n
  readln(n);
  
  // Инициализируем сумму
  sum := 0;
  
  // Вычисляем сумму факториалов от 1 до n
  for i := 1 to n do
  begin
    // Вычисляем факториал числа i
    factorial := 1;
    for j := 1 to i do
    begin
      factorial := factorial * j;
    end;
    
    // Добавляем факториал к сумме
    sum := sum + factorial;
  end;
  
  // Выводим результат
  writeln(sum);
end.

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