求1000以内的所有完全数.(说明:一个数如果恰好等
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/06 00:48:35
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
#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
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.这些数的平方就是四位完全平方数.