求1000以内的所有完全数.(说明:一个数如果恰好等-搜答案-百度作业网

if(m=0)错了应该为if(m==0)再问：好了，谢谢再答：把if(i=s)改成if(i==s)再试一下

count=0Fori=1To1000IFi%7==0Thencount++Nexti

1124394165256367498649811010011121121441316914196152251625617289183241936120400214412248423529245762

只有6和286=1+2+328=1+2+4+7+14所以和为34

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

for(inti=1;i

#include <stdio.h>#include <math.h>#define N 1000void main(){&n

32²+32²+……+99²=（1²+2²+……+99²）-（1²+2²+……+31²）=99*100*199

1000以内的平方数14162536496481100121144169196225256289324361400441484529576625676729784841900961

先求出总共有多少项3,10,17……997共有（997-3）/7+1=143项根据等差数列求和公式：(3+997）*143/2=71500

10^2-10011^2-100……99^2-100VB代码：Fori=10To100Text1.Text=Text1.Text&(i*i-100)&vbTabIfiMod10=0ThenText1.

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

有16个.

publicclassPerfectNumber{publicstaticvoidmain(String[]args){inti,j,sum;for(i=2;isum=0;for(j=1;j

7+14+21..+994=7X（1+2+3..+142）=7X[1/2X142(142+1)]=.自己算

PrivateSubCommand1_Click()Sum=0Fori=0To9Print10*i+7;Sum=Sum+10*i+7NextiPrintPrint"Sum=";SumEndSu

6(123)28(124714)496(1248163162124248)

你华育的吧!

PrivateSubCommand1_Click()Dimi%,k%Fori=1To1000IfInt(Sqr(i))=Sqr(i)ThenPrinti,:k=k+1IfkMod5=4ThenPrin

32、33、34、35、36、.、99.这些数的平方就是四位完全平方数.