讨论 / 16行Pascal代码
sbsbt 2018-07-28 10: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.

查看更多回复
提交回复