Дано натуральное число N. Вычислить: S=1+1/3+1/5+1/7+…+1/(2*N+1)
Дано натуральное число N. Вычислить: S=1+1/3+1/5+1/7+…+1/(2*N+1)
1 2 3 4 5 6 7 8 9 10 11 12 13 |
var n,i,a:integer; s:real; begin writeln ('Введите натуральное число'); readln (n); s:=0; a:=1; while a<=(2*n+1) do begin s:=s+1/a; a:=a+2; end; writeln ('Сумма ряда = ',s); end. |