编程求n之内的所有完全数.所谓完全数指的是一个数恰好等于它的所有因子和.-搜答案-搜搜考试网

PrivateSubCommand1_Click()Dimx,y,z,a,bAsIntegerFora=10To31'9的平方是2位数,所以从10开始,32的平方是4位数,所以到31为止b=a*ax=

抢个沙发!S=""fori=0to200step5ifimod30thenS=S&i&","nextiMsgboxS

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

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

Fori=1To1000s=Str(Sqr(i))IfInStr(s,".")=0ThenForj=1ToLen(s)s1=Mid(s,j,1)Fork=j+1ToLen(s)Ifs1=Mid(s,k

#includeintmain(){inti;for(i=100;i>0;i--)if(i%13==0)break;printf("%d\n",i);return0;}

#include#includevoidmain(){inti=1;intpsquare;while(1){psquare=i*i;i++;if(psquare>=1&&psqua

usingSystem;usingSystem.Collections.Generic;usingSystem.Linq;usingSystem.Text;namespaceConsoleApplic

for(inti=1;i

#inlcdue#defineN100intfactor(intp){inti,sum=0;for(i=2;i

#include#includeintn,t,k;intmain(){for(n=6;0

//编译器不同、我用的是vs2010,根据格式改下就行了、//如果想学、不要急着求教别人、某些问题还是自己想清楚、//像这种比较简单的问题、自己花点时间想想都可以想的出来的、#includeusing

#includeintmain(){inti,j;intprint_bit=1;for(i=100,i

水仙花数是指一个n位数(n≥3),它的每个位上的数字的n次幂之和等于它本身.三位的水仙花数共有4个：153,370,371,407；加一下就可以了,153+370+371+407=1301你可以用程序

size=0;while(size

m=input('请输入m的值:')%所求完全数范围下限n=input('请输入n的值:')%所求完全数范围上限fors=m:ny=0;fori=1:s/2ifmod(s,i)==0y=y+i;end

packagecom.cn.liu.test;publicclassshuixianhua{/**求水仙花数*Liu*@paramargs*/publicstaticvoidmain(Str

LOCALlnI,lcZf,lnGw,lnSw,lnBwFORlnI=100to999lcZf=ALLTRIM(STR(m.lnI))lnGw=VAL(SUBSTR(m.lcZf,3,1))lnSw=

虽然我没学过C语言,但是你的程序中第二个for语句应该有问题,a

#include <stdio.h>int main(){ int n,m;