pascal问题,请用while语句做出,

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/17 02:48:05

pascal问题,请用while语句做出,
1.某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此.到第七天,距山顶还剩91米.求此山峰的高度?
2.求S=1-1/2+1/3-1/4+1/5-1/6+.（求前N项的和）.
3.给出某整数N,将N写成因数相乘的形式.如N=12,输出：12=1*2*2*3.

第1题：
program t1;
var
i,m:integer;
begin
i:=6; m:=91; // 因为第7天离山顶只有91米,不属于循环中,所以m=6,所以只有六天,所以i=6
while i>=1 do // 使用递减的方法做
begin
m:=(m+24)*2; //按条件计算m
dec(i);
end;
write(m); // 咦,答案是珠穆朗玛峰的高度
end.
第2题：
program t2;
var
i,n:integer;
m:real;
begin
read(n);
m:=1;
for i:=2 to n do
begin
if (i mod 2)=0 then m:=m-1/i //判断是加还是减
else m:=m+1/i;
end;
write(m);
end.
第3题：
program t3;
var
n,d,m:longint;
begin // 时间不够了,不加注释了,你自己琢磨一下,很简单的
readln(n);
m:=2; d:=n;
write(n,'=1*');
repeat
if (d mod m)0 then inc(m)
else begin
d:=d div m;
if (d=1) then write(m)
else write(m,'*');
end;
until m=n;
end.

pascal问题,请用while语句做出, free pascal的问题（用while语句解答） pascal 语言 while 语句 Pascal用while语句编程的问题9个.大神帮帮忙!急啊! pascal 语言while 循环语句 pascal for语句问题 pascal程序用,请用repeat语句实现请帮忙, 用free pascal编写程序,要具体（用while语句） pascal 关于case语句的问题 while语句总是有一些问题 C语言while语句问题 while 循环语句的问题