编程输出1000以内的所有水仙花数，所谓水仙花数是指一个3位数，其各位数字的立方和等于其本身

水仙花数是指一个 n 位数 ( n≥3 )，它的每个位上的数字的 n 次幂之和等于它本身。
三位的水仙花数共有4个：153，370，371，407；
加一下就可以了，

153+370+371+407=1301

你可以用程序来找到他们，比如用我会的pascal语言就是：
program shuixianhuashu;
var
a,b,c:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=100*a+10*b+c then writeln(100*a+10*b+c);
end.
或:
program sxh;
var a,b,c,d:integer;
begin
for a:=100 to 999 do begin
b:=a mod 10;
c:=a mod 100 div 10;
d:=a div 100;
if b*b*b+c*c*c+d*d*d=a then writeln(a);
end;
end.

也可用C语言：
#include
int main(void)
{
int a,b,c;
for(a=1;a<=9;a++)
for(b=0;b<=9;b++)
for(c=0;c<=9;c++)
if(100*a+10*b+c==a*a*a+b*b*b+c*c*c)
printf("%d%d%d
",a,b,c);
return 0;
}

Private Sub Command1_Click()
Dim i As Integer, j As Integer

Dim intTemp As Integer

Cls
For i = 100 To 1000
intTemp = 0
For j = 1 To Len(CStr(i))
intTemp = intTemp + Val(Mid(CStr(i), j, 1)) ^ 3
If intTemp > i Then Exit For
Next

If intTemp = i Then Print i

Next
End Sub

Private Sub Command1_Click()Dim x%, y%, z%, s%, i%, sum As SinglePrint "水仙花数为："sum = 0i = 0For x = 1 To 9For y = 0 To 9For z = 0 To 9s = x * 100 + y * 10 + zIf s = x ^ 3 + y ^ 3 + z ^ 3 Then sum = sum + s i = i + 1 Print s, If i Mod 3 = 0 Then Print End IfEnd IfNext zNext yNext xPrintPrint "平均数为" & sum / iEnd Sub

编程vb题 编程显示100–500之间所有水仙花数,并求出它们的和(水仙花是...
Private Sub Form_Click() Dim s As Integer Cls Print "所求水仙花数为："; For i = 100 To 500 If i = (i Mod 10) ^ 3 + ((i Mod 100) \\ 10) ^ 3 + (i \\ 100) ^ 3 Then s = s + i Print i; End If Next i Print Print "它们...

...B列数值是在100-120之间且C列数值满足60–80之间,同时满足这两个条件...
=SUMPRODUCT((B1:B100>=100)*(B1:B100<=120)*(C1:C100>=60)*(C1:C100<=80))

有A、B、C,A杯的容量是700毫升,B杯的容量是500毫升,c杯的容量是300亳升...
用减法的思路：先将500毫升、300毫升的杯子各装满水。将其中一致杯子的水全倒到700毫升杯子里。再另外一个杯子的水往700毫升杯子里倒，直到700毫升的杯子满。剩下的就是100毫升了。减法公式 1、被减数-减数=差 2、差+减数=被减数 3、被减数-差=减数 减法相关性质 1、反交换率：减法是反交换的，如...

初一数学一元一次方程计算题多一点!!!不要填空选择之类的,就要解方程...
A、100(1+x)2=800 B、100+100×2x=800 C、100+100×3x=800 D、100[1+(1+x)+(1+x)2]=800 17、已知一元二次方程2x2-3x+3=0,则( ) A、两根之和为-1.5 B、两根之差为-1.5 C、两根之积为-1.5 D、无实数根 18、已知a2+a2-1=0,b2+b2-1=0且a≠b,则ab+a+b=( ) A、2 B、-2 ...

急需300道四年级递等式计算题!
求第三次加入同样多的水后盐水的浓度。 30.有A、B、C三种盐水,按A与B的数量之比为2:1混合,得到浓度为13%的盐水;按A与B的数量之比为1:2混合,得到浓度为14%的盐水;按A、B、C的数量之比为1:1:3混合,得到浓度为10.2%的盐水,问盐水C的浓度是多少? 1.苹果1000克,雪梨500克,蜜桃2000克,需6元,如果...

急求10道一元一次方程题!要有过程和答案,注意是初一的。
5.甲骑自行车从A地到B地，乙骑自行车从B地到A地，两人都均速前进，以知两人在上午8时同时出发，到上午10时，两人还相距36千米，到中午12时，两人又相距36千米，求A．B两地间的路程？(列方程）设A，B两地路程为X x-（x\/4）=x-72 x=288 答：A,B两地路程为288 6..甲、乙两车长度均为180...

小学四年级计算题四位数的,要三千题,大家帮忙呀
6. 有甲、乙两根水管,分别同时给A,B两个大小相同的水池注水,在相同的时间里甲、乙两管注水量之比是7:5.经过2+1\/3小时,A,B两池中注入的水之和恰好是一池.这时,甲管注水速度提高25%,乙管的注水速度不变,那么,当甲管注满A池时,乙管再经过多少小时注满B池? 7. 小明早上从家步行去学校,走完一半路程...

小学数学总复习资料!!!
原来的数分别缩小10倍、100倍、1000倍……二、数的整除1.整除:整数a除以整数b(b≠0),除得的商正好是整数而且没有余数,我们就说a能被b整除,或者说b能整除a。2.约数、倍数:如果数a能被数b整除,a就叫做b的倍数,b就叫做a的约数。3.一个数倍数的个数是无限的,最小的倍数是它本身,没有最大的倍数。 一...

求五年级学生数学计算题和应用题!我给100分!
63. 同样走100米,小明要走180步,父亲要走120步.父子同时同方向从同一地点出发,如果每走一步所用的时间相同,那么父亲走出450米后往回走,还要走多少步才能遇到小明? 64. 一艘轮船在两个港口间航行,水速为6千米\/小时,顺水航行需要4小时,逆水航行需要7小时,求两个港口之间的距离. 65. 有甲、乙、丙三辆汽车,...

六年级数学毕业试卷及答案
7、一个底面半径是6厘米的圆柱形玻璃器皿里装有一部分水，水中浸没着一个高9厘米的圆锥体铅锤。当铅锤从水中取出后，水面下降了0.5厘米。这个圆锥体的底面积是多少平方厘米?(π取3.14)(4)8、下面是某数码照相机厂 2005 —— 2008 年两种型号照相机产量统计表。单位：万台 年份 2005年 2006年 ...