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

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

s=1+1/3^2+1/5^2+...+1/n^2

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

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

var
  S, k, n: real;
 
begin
  writeln('Введите последний член ряда');readln(n);
  S := 0;
  k := 1;
  while k <= n do
  begin
    S := S + 1 / (k * k);
    k := k + 2;
  end;
  writeln('---------------------');
  writeln('Результат  ', S:0:2);
  readln;
end.

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

В начале кода объявляются три переменные: S, k и n типа real.
Затем происходит чтение последнего члена ряда с помощью функции readln и сохранение его в переменной n.
Инициализируется переменная S значением 0, а переменная k устанавливается равной 1.
Запускается цикл while, который выполняется до тех пор, пока значение переменной k не превысит значение переменной n.
Внутри цикла переменная S увеличивается на 1/k, где k - это текущее значение переменной k.
После завершения внутреннего цикла переменная k увеличивается на 2.
По завершении внешнего цикла выводится строка --------------------- и результат вычисления суммы ряда, который округляется до двух десятичных знаков и записывается в переменную S.
Вызывается функция readln для чтения пользовательского ввода.