用foreach输出一千以内的完数

count==3时会打印两遍可以改成：if ( count == 3 ) {    System.o

vb:dimiasintegerfori=7to100step7ifimod7=0thenme.printiendifnextivc:inti=0;for(i=7;i

PrivateSubCommand1_Click()DimiAsLongDimsAsStringFori=1To1000DoEventsIf(iMod37)=0Thens=s&CStr(i)&""Ne

//////////////////////////////////////////////////////////作者:jierandefeng///时间:2011.3.1318:03///////

用什么语言编程?

publicclassTest{publicstaticvoidmain(String[]args){intsum=0;inti=2;while(i

1000以内质数,剩下的都是合数：23571113171923293137414347535961677173798389971011031071091131271311371391491511571

#include"stdio.h"main(){inti;for(i=7;i

2357111317192329313741434753596167717379838997101103107109113127131137139149151157163167173179181191

publicstaticvoidmain(String[]args){inti=0;while(i

你sum始终是1,你程序中又没有改变.#include"stdio.h"main(){inti,c,n=1,sum=1;for(i=1;i

PrivateSubCommand1_Click()Fori=1To100Forj=1ToiFork=1TojIfi^2=j^2+k^2ThenPrinti;j;kNextkNextjNextiEnd

...i=1;counter=0;//用于计数while(i

PrivateSubCommand1_Click()Dima()Fori=100To1Step-1Forj=i-1To1Step-1IfiModj=0Thenn=n+1NextIfn=1Thenm=m

athousand或者是onethousandthousand[5WauzEnd]num.一千,一千个n.许多,无数thousandthou.sandAHD:[thou“z…nd]D.J.[6Gauz

11个.分别是：36126216306396486576666756846936因该数尾数为偶数,且能被9整除,该数必能被18整除.一千以内被18整除的数有：0、18到990共56个.看尾数：0183

2、3、5、7、11、13、17、19、23、29、31、37、41、43、47、53、59、61、67、71、73、79、83、89、97、101、103、107、109、113、131、137、1

/>放数据的地方这样就能实现了,

datasegmentxdw?ydb?dataendscodesegmentassumecs:code,ds:datastart:movbx,99m:incbxcmpbx,1000jzout1mo

您是问程序怎么设计还是要结果?VB的程序我编了个在窗体添加一个命令按纽和文本框,代码如下：PrivateFunctionIsPrime(ByValn_NumberAsLong)AsLong'判断是否是