Cоставить на Паскале: 1) программу для вычисления суммы ряда S=1/1+ 1/3+1/5+..+1/N. Число N вводится с клавиатуры.
Var s:real; i,n:longint; begin read(n); for i:=1 to n do s:=1/(2*i-1); writeln(s); end.