选出能被4整除且至少有一位是6的两位数

有些错误,改正如下：PrivateSubCommand1_Click()DimiAsIntegerm=0i=100DoWhilei

Varn,i:integer;s:string;Beginreadln(n);Fori:=1tondoifimod3=0ThenBegin//若能被3整除str(i,s);//将i转换为字符串ifpo

#include<stdio.h>int main(){\x05int a,b,c;\x05int k=0;\x05for(int i=102;i&

functionisOk(n:integer):boolean;vari:integer;beginresult:=pos('5',inttostr(n))>0;end;functionmyFunc(

fori:=1to总数量dobeginwrite(a[i]:4);ifimod10=0thenwriteln;end;再问：总数量是符合要求的数的数量吗？再答：是的，把符合的数都存放在一个数组中再问：

91个分别是：154551545775105135150153156159165195225252255258285315345351354357375405435450453456459465495

这个题目出的不太好：一个数是所有数之和,那除了这个数其他的数只能是0了!publicclassTest{publicstaticvoidsz(){intm=0,n=0,l=0,r=0;System.o

PrivateSubCommand1_Click()Dims&,i&i=2WhileiMod115OriMod173‘先找到符合条件的第一个ii=i+2WendFori=iTo5000Step374’

测试可用.程序结果:15,45,51,54,57,75#includevoidmain(){intfunc(inti);intr;inti;for(i=10;i

你少了括号了：#includeusingnamespacestd;intmain(){inti,n,j=0;cin>>n;for(i=1;i

后两位是4的倍数共25个含有1的有两个2×9×10=180个不含1的有23个23×（9×10-8×9）=414个共计：180+414=594个

dimi,a,b,totalAsIntegerfora=0to9forb=0to9if(800+a*10+b)mod3=0Thenprint(800+a*10+b)total=total+1endif

加个变量count,初始是0,当满足if条件的时候count++；跳出for循环之后输出count

能被3整除的数的各个数位上的数字的和是3的倍数,各位上是6,所以前三位的和是三的倍数能被三整除的三位数从102到999一共有999/3-102/3=299个所以有299个

vari,j,s:integer;begini:=5;s:=0;whilei0)doj:=jdiv10;if(jmod5=0)and(j>0)thens:=s+1;i:=i+5;end;writeln

#includeintmy_test(intnum){if(num

clear?"1~999能被3整除且至少有一位是5的数有："fori=1to999ifi%3=0and"5"$alltrim(str(i))?iendifendfo

①末两位数应是00、04、08、12、16、20、、92、96，共25个，其中含有数字0的有7个（00、04、08、20、40、60、80），其余18个末两位都不含有数字0．②一个四位数的末两位含有数

301246因为301246/11=27386

这个不算了,那是无穷多的,光个位是5的整数有多少你就数不过来