pascal编程:级数求和  已知:Sn= 1+1/2+1/3+…+1/n.显然对于任意一个整数K,当n足够大的时候,Sn大于K.  现给出一个整数K(1

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/22 19:41:30
pascal编程:级数求和  已知:Sn=1+1/2+1/3+…+1/n.显然对于任意一个整数K,当n足够大的时候,Sn大于K.  现给出一个整数K(1pascal编程:级数求和  已知:Sn=1+1

pascal编程:级数求和  已知:Sn= 1+1/2+1/3+…+1/n.显然对于任意一个整数K,当n足够大的时候,Sn大于K.  现给出一个整数K(1
pascal编程:级数求和
  已知:Sn= 1+1/2+1/3+…+1/n.显然对于任意一个整数K,当n足够大的时候,Sn大于K.
  现给出一个整数K(1

pascal编程:级数求和  已知:Sn= 1+1/2+1/3+…+1/n.显然对于任意一个整数K,当n足够大的时候,Sn大于K.  现给出一个整数K(1
var
  n,k,i:longint;
  x,p:extended;
begin
  readln(k);
  x:=0;
  i:=0;
  while x<=k do
    begin
      inc(i);
      x:=x+1/i;
    end;
  writeln(i);
end.