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