Вычислить сумму ряда - Pascal (80617)

Формулировка задачи:

Для заданного натурального n и действительного x подсчитать сумму. Ребят самым простым способом если можно

Решение задачи: «Вычислить сумму ряда»

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

var n,i,z:integer;
    s:real;
begin
repeat
write('Введите целое n>0 n=');
readln(n);
until n>0;
s:=0;
z:=-1;
for i:=1 to n do
 begin
  z:=-z;
  s:=s+z/sqr(2*i+1);
 end;
write('S=',s:0:5)
end.

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

Создаются переменные:
- n (целое число) - для хранения введенного значения пользователем.
- i (целое число) - для использования как счетчик в цикле.
- z (целое число) - для вычисления знака в ряде.
- s (вещественное число) - для хранения суммы ряда.
Пользователю предлагается ввести значение переменной n с помощью сообщения 'Введите целое n>0 n='. Программа ожидает ввода нового значения, пока не будет введено целое число больше нуля.
Переменной s присваивается значение 0, переменной z присваивается значение -1.
Выполняется цикл от 1 до n. В цикле происходит следующее:
- Значение переменной z меняется на противоположное (из положительного в отрицательное и наоборот).
- Значение переменной s увеличивается на z разделенное на квадрат суммы (2*i+1).
После выполнения цикла программа выводит значение переменной s с сообщением 'S=' и округляет его до 5 знаков после запятой.