pascal计数器一本书的页码为n，页码从1开始编起，请你求出全部页码中，用了多少个0，1，2。。。9。

显示全部楼层 · 2011-6-6 10:29:41

var a:array[0..9] of longint; n,x,i:longint;begin readln(n); for i:=1 to n dobegin x:=i; while x>0 do
begin
a[x mod 10]:=a[x mod 10]+1;
x:=x div 10;
end;end; for i:=0 to 9 do writeln(i,' ',a);end....

千问 · 2011-6-6 10:29:41

program sample;var a:array[0..9]of longint; i,j,n:longint;beginfillchar(a,sizeof(a),0);readln(n);for i:=1 to n dofor j:=1 to length(inttostr(i)) do inc(a[((i div ...

pascal计数器 一本书的页码为n，页码从1开始编起，请你求出全部页码中，用了多少个0，1，2。。。9。

pascal计数器一本书的页码为n，页码从1开始编起，请你求出全部页码中，用了多少个0，1，2。。。9。