记录编号 82457 评测结果 AAAAAAAAAA
题目名称 [NOIP 2010PJ]数字统计 最终得分 100
用户昵称 Gravatar我密码是sjb 是否通过 通过
代码语言 Pascal 运行时间 0.003 s
提交时间 2013-11-24 14:16:36 内存使用 0.17 MiB
显示代码纯文本
 var
   i,j,ans,l,r:longint;
   a:array[1..10]of longint;
   begin
   assign(input,'twoj.in');
   assign(output,'twoj.out');
   reset(input);
   rewrite(output);
    readln(l,r);
    ans:=0;
    for i:=l to r do begin
       j:=i;
       while j<>0 do begin
         if j mod 10=2 then inc(ans);
          j:=j div 10;
          end;
          end;
          writeln(ans);
          close(input);
          close(output);
          end.