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

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

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

级数求和已知:Sn= 1+1/2+1/3+…+1/n.显然对于任意一个整数K,当n足够大的时候,Sn大于K.现给出一个整数K(1
program ex;
var
sn:real;
k,n:longint;
begin
readln(k);
n:=1;sn:=0;
repeat
sn:=sn+1/n;
n:=n+1;
until sn>k;
write(n-1);
end.
不要老靠别人,Pascal只有靠自己才能学好