水仙花数的程序怎么写啊?

发布网友发布时间：2022-04-29 07:57

共1个回答

热心网友时间：2022-04-29 09:27

Private Sub Form_Click()
Dim a, b, c ，x As Integer
For a = 0 To 9
For b = 0 To 9
For c = 1 To 9
x=100 * c + 10 * b + a
If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then print x;
Next c
Next b
Next a
这是用vb编的我只学了这个
==================================
C语言的"水仙花数"代码
main(){
int i,j,k;
for(i=1;i<10;i++)
for(j=0;j<10;j++)
for(k=0;k<10;k++)
if( (i*100+j*10+k)==((i*i*i)+(j*j*j)+(k*k*k)))
printf("%d%d%d ",i,j,k);
getch();
}

C语言的"水仙花数"代码
main(){
int ge,shi,,number;
for(number=100;number<1000;number++){
=number/100;
shi=(number%100)/10;
ge=number%10;
if(number==**+shi*shi*shi+ge*ge*ge)
printf("\nnumber=%d\n",number); }
getch();
}
这是c语言从这里抄来的http://zhidao.baidu.com/question/16670077.html?si=4
======================================
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(a,b,c);
end.
这是pascal的从这里抄来的
http://zhidao.baidu.com/question/8322833.html?si=6
=============================
俺觉得最好讲清楚是哪一种的。。于人于己都方便