你可以试试把j从0开始。。（不太懂pascal）。。。错了勿怪。。
by 不是憨憨 @ 2017-09-09 20:57:39
哇咔咔。。几年没写pascal，，现在都不会了。。。
by 不是憨憨 @ 2017-09-09 21:02:56
~~#你怎么写这么麻烦~~
by wangweiba @ 2017-09-09 21:14:54
把str:=chr(i);改为str(i,str);
AAAAAAAAAAA
CCCCCCCCCCC
!!!!!!!!!!!!!!!!!!!!!!!!
by 奋北之鲲 @ 2017-09-21 22:05:46
{不能用str这个变量名！这是个函数！
把我的ac程序给你借鉴吧}
```cpp
var
i,l,r,ans,j:longint;
s:string;
begin
readln(l,r);
ans:=0;
for i:=l to r do
begin
str(i,s);
for j:=1 to length(s) do
if s[j]='2' then inc(ans);
end;
writeln(ans);
end.
```
by Altria_Pendragon_ @ 2017-10-04 17:44:56
var a:array[1..100]of longint;i,j,k,m,n,t,y:longint;
begin
read(m,n);for i:=m to n do begin t:=i;
repeat y:=t mod 10;t:=t div 10;if y=2 then k:=k+1;until t=0;end;writeln(k);end.
by WendY3027 @ 2017-10-08 21:46:29
终于看到了P党同志，我也来发个我的AC代码
```cpp
var
n,m,j,i,k,x,t:longint;
s:string;
begin
readln(m,n);
for i:=m to n do
begin
str(i,s);
k:=length(s);
for j:=1 to k do
if s[j]='2' then inc(x);
end;
writeln(x);
end.
```
by fondness_zzy @ 2017-11-01 19:01:57
我的代码（无字符串）
```cpp
var p,sum,i,l,r:longint;
begin
read(l,r);
sum:=0;
for i:=l to r do
begin
p:=i;
while p>0 do
begin
if p mod 10=2 then inc(sum);
p:=p div 10;
end;
end;
write(sum);
end.
```
by 娄口肃行 @ 2017-11-08 21:19:33
p党聚集池
by marshal王子祥 @ 2017-12-27 21:14:53
<orz>
by jijidawang @ 2020-01-16 09:17:16