Question

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

Answer 1

var
s:real;
i,n:longint;
begin
read(n);
for i:=1 to n do
s:=1/(2*i-1);
writeln(s);
end.