Вычислить сумму - Pascal (80344)

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

var i: integer;
    s: real;
begin
  s := 0;
  for i := 1 to 128 do s := s + 1 / i / i;
  writeln('S = ', s/4:0:15);
  readln
end.

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

Объявляется переменная i типа integer, которая будет использоваться для итерации в цикле.
Объявляется переменная s типа real, которая будет использоваться для сохранения итоговой суммы.
Присваивается начальное значение 0 переменной s.
Запускается цикл от 1 до 128, в котором переменная i увеличивается на 1 с каждой итерацией.
На каждой итерации к переменной s прибавляется значение выражения 1 / i / i, где i - текущее значение переменной цикла.
Выводится результат вычислений S = с точностью до 15 значащих цифр после запятой и считается значение s/4.
Ожидается ввод данных. Этот код вычисляет и выводит значение суммы ряда с точностью до 15 знаков после запятой.