Сделать программу суммы чисел от k до n с факториалом - Turbo Pascal

Решение задачи: «Сделать программу суммы чисел от k до n с факториалом»

Листинг программы

program pr;
var
  i, n: integer;
  sum: real;
function f(x: integer): integer;
var
  i, n: integer;
begin
  n := 1;
  for i := 1 to x do
  begin
    n := n * i;
  end;
  f := n;
end;
begin
  writeln('Введите n');
  readln(n);
  for i := 1 to n do
  begin
    sum := sum + (1 / f(i * i));
  end;
  writeln;
  writeln('Сумма: ', sum);
end.

Объяснение кода листинга программы

В программе объявлены три переменные: i, n и sum.
Функция f(x) вычисляет факториал числа x.
В цикле for i := 1 до n выполняется следующее:
- n переменной n присваивается значение 1.
- Затем, в блоке begin..end, переменная n перемножается с i от 1 до x.
- Значение n после завершения цикла равно произведению i от 1 до x.
- Функция f(i i) возвращает факториал числа (i i).
- Значение sum переменной sum увеличивается на 1/f(i * i).
После выполнения цикла for выводится сообщение 'Сумма: ', и значение переменной sum.