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

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

Дано следующие:1+2/5+3/7+4/7+5/9+6/9+7/11..+98/101+99/103. Подскажите как решать такое в паскале? Если можно приведите примеры.

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

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

var
  i:integer;
  s:real;
begin
  s:=1;
  for i:=2 to 99 do if odd(i) then s:=s+i/(4+i) else s:=s+i/(3+i);  
  writeln(s);
end.

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

В данном коде на языке Pascal вычисляется сумма ряда чисел. Переменная s инициализируется значением 1. Затем в цикле от 2 до 99 происходит проверка, является ли текущее число i нечетным. Если это так, то к сумме s прибавляется значение i деленное на (4+i). Если число четное, то к сумме s прибавляется значение i деленное на (3+i). После завершения цикла, значение переменной s выводится на экран.