作业帮 > 数学 > 作业

用pascal语言的while循环求s=1+2+3+...+10

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/16 08:37:17
用pascal语言的while循环求s=1+2+3+...+10

跪求,简单一点,我是初学者

还有几题:

用while循环

s=1+1/2+1/3+...+1/100;

计算n!,其中n键盘输出

输入任意自然数a,b,求a,b最小公倍数

小球从100高处自由落下,着地后又弹回高度的一半再落下,求第20次着地时,小球共通过多少路程?

0.1.1.2.3.5.8.规律是从第三项起,每项均等于前面两项之和.求前三十项,并以每行五个输出.

鸡兔同笼,头30,脚90,求鸡兔各几只.

谢谢大侠们,做得好肯定有加分


这么多道题……
第一题:
var l,i:longint;
begin
i:=0; {清零}
l:=0;
while i
再问: 首先感谢你的耐心指导,可是,为什么上面几题都要加i:=i+1?
再答: 因为i要不断递加,while才不会死循环啊。而且,第一题里面l要加1、2、3、4。。。10,而i一开始是1,l加上1以后,i要加1变成2,再加1变成3.。。。