sbsbt 2018-07-27 19:46:08
点我顶贴
收藏
删除
var
n,m,i,j:longint;
a:array[1..100]of longint;
begin
read(n,m);
for i:=n to m do
begin
j:=i;
while j<>0 do
begin
a[j mod 10]:=a[j mod 10]+1;
j:=j div 10;
end;
end;
for i:=0 to 9 do write(a[i],' ');
end.