编程能被5整除且至少有一位数字是5的所有整数的个数pascal

如果是85个数字满足的话,那么应该是100-999,不是1-999#include <stdio.h>#include <stdlib.h>//求被3整除且

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(

s=0fori=100to999ifmod(i,6)=0bai=int(i/100)shi=int(mod(i,100)/10)ge=mod(i,10)ifbai=8andshi8andge8s=s+

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’

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

91个

后两位是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

设这个数个位是x,十位是y,那么x是0到9的整数,y是1到9的整数y=x-2x+10y=3ay=5b其中a,b为整数因为y是1到9的整数,且能做十位,能被5整除,所以y=5带到上式得到x=7,符合题意

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

刚才手机回答,没看完题目-_-!补一下#includeintmain(){inti;for(i=1;i

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．②一个四位数的末两位含有数

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