100到500的完全数

Dimi,j,sAsIntegerFori=1To500s=0Forj=1Toi\2'i\2表示整除结果IfiModj=0Thens=s+jNextjIfi=sThenPrinti&"是完数"Next

44个

因为√1000=31.62所以1000以内的完全平方数有31个因为三次根号下1000=10所以1000以内的完全立方数有10个因为六次根号下1000=3.16所以1000以内的完全六次方数有3个100

含数字9的：10+10-1=19个不含数字9的：100-19=81个

1000到9999内最小的完全平方数是32的平方,最大的完全平方数是99的平方,所以1000到9999内所有完全平方数的和＝（1的平方＋2的平方＋…＋99的平方）－（1的平方＋2的平方＋…＋31的平方

72=2^2*3^2*2因此所求数的因子中必有2,即该数可表示为2p^2（p为整数）问题转化为1-2012中有多少2p^2（p为整数）形式的数2012/2=100631*31=961,32*32=10

100之间既不是完全平方数也不是完全立方数的数有（87）个再问：算式呢？？？？？？？再答：完成平方数：1，4，9，16，25，36，49，64，81，100完全立方数：1，8，27，64不是=99-1

72=2^2*3^2*2因此所求数的因子中必有2,即该数可表示为2p^2（p为整数）问题转化为1-2012中有多少2p^2（p为整数）形式的数2012/2=100631*31=961,32*32=10

72=（2*2）*（3*3）*2因此完全平方数（设为N*N）*2*72===（2*2）*（3*3）*（2*2）*(N*N)就还是完全平方数所以N*N*2应该小于2003也就是说,小于1002的完全平方

100到1000之间（含100和1000）之间共有1000-100+1=901个数1、由于10²=100,31²=9611000即100到1000之间（含100和1000）之间最小

设这六个连续完全平方数中最小的为K²,最大的为(K+5)²,则根据题意,应满足：(K+5)²-K²（因为如果有：(K+6)²-K²上面两式解

在100到1000中（包括100和1000），完全平方的有100、121、144、169、196、225、256、289、324、361、400、441、484、529、576、625、676729、

完全数＝【真】约数之和.就是“约数”里除去自身.你的程序要修改一句.for(k=1;k<n;k++) // k <= n 修改成 

44=193645=2025从1到1999的自然数中,完全平方数有44个

把1、10、11、12、13、14、15、16、17、18、19、21、31、41、51、61、71、81、91去了就知道了.一共81个

完全数：因子（除了它本身）之和等于它本身的数programcs4;vari,n,s:integer;begins:=0;forn:=2to100dobegin{fori:=1tondo}fori:=1

72=9×4×29和4是完成平方数则72乘以一个完全平方数的2倍,则为完全平方数2008内最大的平方数的2倍是31²×2=1922所以从1到2008的所有自然数中,乘以72后是完全平方数的数

15²=22516²=25617²=28918²=32419²=36120²=40021²=44122²=48423&s

vari,n:longint;functionys(x:longint):longint;vari:longint;beginys:=0;fori:=1toxdiv2doifxmodi=0thenys

31个再问：请问为什么再答：72=2的3次方*3的平方1998/2=999999>31的平方