vb求出所有各位数字的立方和等于1099的3位整数-搜答案-智慧作业帮

说明：下面的x%y表示x除以y的余数,x/y表示x/y的商,如果没有学过这个符号,可以用自然语言描述!第一步,输入n=100第二部,计算n的各位数百位a2=n/100,十位a1=(n-100a2)/1

1983

PrivateSubCommand1_Click()j=0Fori=100To999IfInStr(Sqr(i),".")=0ThenIfMid(i,1,1)=Mid(i,2,1)OrMid(i,1,

你说的这种数叫水仙花数.水仙花数是指一种三位数,其各个数之立方和等于该数.水仙花数共有4个,分别为：153、370、371、407

153370371407再问：能用c语言写出来吗？再答：#includevoidmain(){intm,n,a,b;for(m=100;m

OptionExplicitPrivateSubCommand1_Click()Dimi%,j%,k%Fori=1To9Forj=0To9Fork=0To9Ifi*i*i+j*j*j+k*k*k=i*

貌似你的if后面多出了一个分号再问：我擦，还真是这个分号的问题！晕死，没发现，关键是为何多一个分号，答案就变成那样了呢？如何分析啊？再答：你多了个分号这个条件判断不就没用了嘛

#includevoidmain(){inti,j,k;for(i=1;i

这个肯定是先确定幸运数了,首先幸运数是一位数a,那么他的和和积都是a,想加是2a,肯定不对了,0特殊,对只是对求和无影响幸运数是ab那么ab+a+b=10a+b所以可得到b等于9幸运数是19,29,3

n=1he=0dowhiln

2求出所有的水仙花数.水仙花数是指3位的正整数,其各位数字的立方和等于该正整数本身.例如,407=4*4*4+0*0*0+7*7*7在窗体上画2个Command控件,和3个text控件双击打开代码窗口

#include#includevoidmain(){intn1,n2,n3,n;printf("所得的数为：\n");for(n=100;n

#include#includevoidmain(){intn1,n2,n3,n;printf("所得的数为：\n");for(n=100;n

?"水仙花数："m=100dowhilem

#include<math.h>voidmain(){intn1,n2,n3,n;printf("所得的数为：\n");for(n=100;n<1000;n++){n1=n%10;n

如果用程序就很简单：一下为Matlab程序x=[];fori=1:999if(i==fix(i/100)^3+fix(mod(i,100)/10)^3+mod(i,10)^3)x=[x;i];ende

20011983

PublicSubt1()Dimi,a,b,c,dAsIntegerFori=100To1000a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Ifa^3+b^3+c^3

#includevoidmain(){inti,a,b,c;for(i=100;i

intlen=0,results[256];for(inti=0;i