NOIP2010普及组T1

对了，把这个也发上来，昨天晚上写的……转换成string真的是一个不错的方法。

program two;
 var
  st:string;
  l,r,i,n,s:longint;
 begin
  s := 0;
  read (l,r);
  for n := l to r do
   begin
    str(n,st);
    for i := 1 to length(st) do if st[i]='2' then inc(s);
   end;
  writeln (s);
 end.