级数求和已知：Sn= 1＋1／2＋1／3＋…＋1／n.显然对于任意一个整数K,当n足够大的时候,Sn大于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
赞 hellery919 幼苗
共回答了20个问题采纳率：80% 举报
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只有靠自己才能学好
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只有靠自己才能学好
1年前
6
可能相似的问题
-
1年前2个回答
-
等差数列：已知a1=1,d=3,Sn=590.求n.怎么算?
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
在等差数列{an}中,已知d=3,an=20,sn=65,求n.
1年前1个回答
-
1、已知等差数列中,d=2,an=1,Sn=-8,求a1和n.
1年前4个回答
你能帮帮他们吗