Нахождение суммы ряда - Pascal

x + x^3\3+x^5\5+ ......x^11\11

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

begin
  var x := ReadlnReal('x = ');
  Writeln(Range(1, 11, 2).Sum(n -> Power(x, n) / n));
end.

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

Создается переменная x и присваивается значение введенное пользователем с помощью функции ReadlnReal('x = '), которая считывает вещественное число.
Вычисляется сумма ряда с помощью функции Range(1, 11, 2).Sum(n -> Power(x, n) / n), где:
- Range(1, 11, 2) создает последовательность чисел от 1 до 11 с шагом 2 (1, 3, 5, 7, 9, 11).
- Для каждого числа n из этой последовательности вычисляется значение Power(x, n) / n (x в степени n, деленное на n).
Результат суммы ряда выводится с помощью функции Writeln.