作业帮 > 综合 > 作业

计算从n到m一共有几个一 用Pascal

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/11 05:22:24
计算从n到m一共有几个一 用Pascal
试计算在区间1到n的所有整数中,数字x(0≤x≤9)共出现了多少次?例如,在1到11中,即在1、2、3、4、5、6、7、8、9、10、11中,数字1出现了4次.

输入共1行,包含2个整数n、x,之间用一个空格隔开.

输出共1行,包含一个整数,表示x出现的次数.输入:11 1输出:4
计算从n到m一共有几个一 用Pascal
var n,x,i,j,num:longint; s:string;
begin
readln(n,x); num:=0;
for i:=1 to n do
begin
str(i,s);
for j:=1 to length(s) do
if s[j]=chr(48+x) then
inc(num);
end;
writeln(num);
end.