Cоставить на Паскале: 1) программу для вычисления суммы ряда S=1/1+ 1/3+1/5+..+1/N. Число N вводится с клавиатуры.

Предыдущий
вопрос Следующий
вопрос

program SumOfSeries;

var
N, i: integer;
S, denominator: real;

begin
write('Enter the value of N: ');
readln(N);

S := 0;
denominator := 1;

for i := 1 to N do
begin
S := S + 1 / denominator;
denominator := denominator + 2;
end;

writeln('Sum of the series is: ', S:0:2);

end.