作业帮 > 综合 > 作业

请高手帮我设计一个程序 内容:已知s=1/1+1/2+1/3+1/4+……+1/n 求n是多少时,s>11

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/18 09:15:02
请高手帮我设计一个程序 内容:已知s=1/1+1/2+1/3+1/4+……+1/n 求n是多少时,s>11
类似这样的形式
program zhengshu;
var a:longint;
begin
for a:=1 to 10000 do
if a mod 9=0 then writeln(a);
end.
是一个程序,
var
s:real;
n:real;
begin
s:=0;
n:=1;
while(s