写程序(pascal)

来源：百度知道 编辑：UC知道 时间：2024/05/22 15:39:49
5、求下式中n的最大值：
2（2）+4（2）+6（2）+……+n（2）<1500

6、求某个自然数的质因子，输出如下形式：
100=2*2*5*5

分太少了，我写一个，如果加点分，我可以再写一个：）

Program exp5;
var i,n,s:integer;
begin
s:=0;
i:=0;
repeat
i:=i+1;n:=i*2;s:=s+n;
until s>=1500;
i:=i-1;
n:=i*2;
writeln('n=',n);
end.

程序运行结果：
n=76

第二个也写好了，你看着给点分吧：）

Program exp6;
var i,j,n:integer;
begin
readln(n);
write(n,'=');
j:=0;
i:=2;
while i<=n do begin
while n mod i=0 do begin j:=j+1; if j>1 then write('*'); write(i); n:=n div i; end;
i:=i+1;
end;
end.

运行结果：
200＝2*2*2*5*5

以上程序全部运行成功，保证没有问题。