Найти сумму ряда - Pascal (80818)

Найти сумму 1/2 + 3/4 + 5/6 + ... + (2n-1) / 2n

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

s:=0;
for i:=1 to n do
s;=s+(2*i-1)/2/i;

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

Устанавливается начальное значение переменной s равным 0: s:=0;
Начинается цикл for с переменной i, которая изменяется от 1 до n: for i:=1 to n do
В теле цикла к переменной s прибавляется значение выражения (2*i-1)/2/i, разделённое на 2 и на i: s:=s+(2*i-1)/2/i;
Цикл завершается после выполнения действий для всех значений i.