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

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

(1/1)+(1/3)+(1/5)+...+(1/2*n)

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

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

program pr;
var
  i, n: integer;
  sum: real;
begin
  writeln('Введите n');
  readln(n);
  sum := 0;
i:=1;
repeat
    sum := sum + (1 / i);
    i := i + 2;
until i>n;
  writeln(sum);
end.

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

В данном коде на языке Pascal ABC происходит вычисление суммы ряда. Номер 1: Программа начинается с объявления переменных i, n и sum типа integer и real соответственно. Номер 2: Затем происходит чтение значения переменной n из стандартного ввода. Номер 3: Переменная sum инициализируется значением 0. Номер 4: Запускается цикл repeat, который будет выполняться до тех пор, пока значение переменной i меньше или равно значению переменной n. Номер 5: Внутри цикла переменная sum обновляется, получая сумму предыдущего значения sum и выражения (1 / i). Номер 6: Переменная i увеличивается на 2. Номер 7: Цикл повторяется, пока значение переменной i меньше или равно значению переменной n. Номер 8: По окончании цикла переменная sum выводится на экран. Номер 9: Программа завершается.