所有不超过1000的数中含有数字3的自然数的个数Vara,b,c,d,m:integer;Beginm:=0;fora:=1to1000dob:=amod10;c:=adiv100;d:=adiv10mod10;if(b=3)or(c=3)or(d=3)theninc(m);writeln(m);end.为什么错了

Question

所有不超过1000的数中含有数字3的自然数的个数
Var
a,b,c,d,m:integer;
Begin
m:=0;
for a:=1 to 1000 do

b:=a mod 10;
c:=a div 100;
d:=a div 10 mod 10;
if (b=3) or (c=3) or (d=3) then inc(m);
writeln(m);
end.
为什么错了

Answer 1

271个
0-100有19个,除去百位3开头的,每一百个数字里面含3的都是19个,百位3开头的100个,所以19*9=171,171+100=271