来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/10/01 12:25:34
这道题用Pascal怎么解答?
题目描述
设S＝1+1/3+1/5+1/7+1/9……1/n,编一程序求满足不等式S>=m时最小n的值.
输入
输入一个实数,表示m.
输出
输出一个整数,为最小的n值.
（尽量简洁点）我是新手
var n,i:longint; s,m:real;begin readln(m); s:=1; n:=1; while s<m do begin inc(n,2); s:=s+1/n; end; writeln('s=',s:0:4,' n=',n);end.
作业帮