高考问答云南山歌搞笑视频全集:Pascal循环作业求助
来源：百度文库 编辑：高考问答 时间：2024/05/01 10:58:06
接上
5.求出1-1000中的所有完数（因子之和等于它本身的数。如：28的因子是：1，2，4，7，14，且1+2+4+7+14=28，所以28是完数）。
6.找出1-9999中的所有史密斯数（可以分解的整数，且所有数位上的数字和等于其全部素数的数字总和。如：9975就是史密斯数，因为：9975=3*5*5*7*9；9+9+7+5=30；1+3+5+5+7+19=30）。
7.求100-999中的水仙花数（三位数ABC，如果A，B，C的立方和等于ABC，则称为水仙花数）。
8.打印下列图形：
***** *
***** * *
***** * * *
***** * * * *
* * * * *
5.求出1-1000中的所有完数（因子之和等于它本身的数。如：28的因子是：1，2，4，7，14，且1+2+4+7+14=28，所以28是完数）。
6.找出1-9999中的所有史密斯数（可以分解的整数，且所有数位上的数字和等于其全部素数的数字总和。如：9975就是史密斯数，因为：9975=3*5*5*7*9；9+9+7+5=30；1+3+5+5+7+19=30）。
7.求100-999中的水仙花数（三位数ABC，如果A，B，C的立方和等于ABC，则称为水仙花数）。
8.打印下列图形：
***** *
***** * *
***** * * *
***** * * * *
* * * * *
5：
program ex5;
var i,j,s:integer;
Begin
for i:=1 to 1000 do
begin
s:=0;
for j:=1 to (i div 2) do
if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
End.
第6题题目没看懂。
7：
program ex7;
var i,s,a,b,c:integer;
Begin
for i:=1 to 1000 do
begin
s:=0;
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
s:=a*a+b*b+c*c;
if s=a*b*c then write(i,' ');
end;
End.
8：
program ex8;
var i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to i-1 do write(' ');
if i<5 then write('*****');
for j:=1 to (5-i)*3 do write(' ');
for j:=1 to i do write('*');
writeln;
end;
End.
自己的动手吧
又不难
这种题说白了就是麻烦。不是难。