这道题用Pascal怎么解答?题目描述设S=1+1/3+1/5+1/7+1/9……1/n,编一程序求满足不等式S>=m时最小n的值.输入输入一个实数,表示m.输出输出一个整数,为最小的n值.(尽量简洁点)我是新手

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 13:57:21
这道题用Pascal怎么解答?题目描述设S=1+1/3+1/5+1/7+1/9……1/n,编一程序求满足不等式S>=m时最小n的值.输入输入一个实数,表示m.输出输出一个整数,为最小的n值.(尽量简洁点)我是新手
xSn@+QVl׉>f%Э aOKJxRjcYNm@H>fݼG*z>VV݌ %-eBz,JiAҕ( *⼬ɒʦh%eSQuYPPZbl i( uHj*"Hi)CMp\^kHL3ЄBUdA: p

这道题用Pascal怎么解答?题目描述设S=1+1/3+1/5+1/7+1/9……1/n,编一程序求满足不等式S>=m时最小n的值.输入输入一个实数,表示m.输出输出一个整数,为最小的n值.(尽量简洁点)我是新手
这道题用Pascal怎么解答?
题目描述
设S=1+1/3+1/5+1/7+1/9……1/n,编一程序求满足不等式S>=m时最小n的值.
输入
输入一个实数,表示m.
输出
输出一个整数,为最小的n值.
(尽量简洁点)我是新手

这道题用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.