作业帮 > 综合 > 作业

n有多少个能被3整除,且至少有一位数字是5的数.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 03:29:50
n有多少个能被3整除,且至少有一位数字是5的数.
pascal 语言,1——n之间有多少个能被3整除,且至少有一位数字是5的数.输入文件:一个整数n 输出文件:符合要求的整数的个数
Var n,i:integer; s:string; Begin readln(n); For i:=1 to n do if i mod 3=0 Then Begin//若能被3整除 str(i,s);//将i转换为字符串 if pos('5',s)>0 Then writeln(i);//利用字符串函数pos判断是否有5 End; End.