ac1067.pas

来自「同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料」· PAS 代码 · 共 26 行

program tju1067;
var
  count:array[0..9]of int64;
  n,k:int64;
  r,i:byte;
  s:string;
begin
  repeat
    fillchar(count,sizeof(count),0);
    read(n);k:=1;

    repeat
      r:=n mod 10;
      for i:=0 to 9 do
        inc(count[i],(n div 10+ord((i>0) and (i<=r)))*k);
      str(n,s);inc(r);
      for i:=1 to length(s)-1 do
        inc(count[ord(s[i])-48],r*k);
      n:=n div 10-1;k:=k*10;
    until n<1;

    for i:=0 to 9 do
      writeln(count[i]);
  until seekeof;
end.