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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/02 17:22:18
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

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.