【模拟】计数的梦

题目:计数的梦 rqnoj11

题目描述

Bessie 处于半梦半醒的状态。过了一会儿，她意识到她好像在数羊，不能入睡。Bessie的大脑反应灵敏，仿佛真实地看到了她数过的一个又一个数。她开始注意每一个数码：每一个数码在计数的过程中出现过多少次？
给出两个整数 M 和 N (1 <= M <= N <= 2,000,000,000 以及 N-M <= 500,000)，求每一个数码出现了多少次。
例如考虑序列 129..137: 129, 130, 131, 132, 133, 134, 135, 136, 137。统计后发现：
1x0 1x5
10x1 1x6
2x2 1x7
9x3 0x8
1x4 1x9

输入格式

共一行，两个用空格分开的整数 M 和 N

输出格式

共一行，十个用空格分开的整数，分别表示数码(0..9)在序列中出现的次数。

样例输入

129 137

样例输出

1 10 2 9 1 1 1 1 0 1

 

题目比较简单，直接一个循环，然后每一个数不停的mod 10(C++ %10)再div 10(C++ /10)就ok了

代码是Pascal的

program rqnoj11;
procedure init;
begin
  assign(input,'rqnoj11.in');
  assign(output,'rqnoj11.out');
  reset(input);
  rewrite(output);
end;
procedure outit;
begin
  close(input);
  close(output);
  halt;
end;

procedure readdata;
begin
end;

procedure main;
var
  n,m:longint;
  i,x:longint;
  a:array[0..9] of longint;
begin
  read(m,n);
  fillchar(a,sizeof(a),0);
  for i:=m to n do
  begin
    x:=i;
    repeat
      inc(a[x mod 10]);
      x:=x div 10;
    until x=0;
  end;
  for i:=0 to 9 do
    write(a[i],' ');
end;

begin
  init;
  readdata;
  main;
  outit;
end.