huizezlk 2011-01-03 21:37:00
点我顶贴
收藏
删除
我的程序能过8组,但是最后两组的前两个都有问题...都是0的个数错了,杂回事呢.....
我以前像这样写过从0...2000000000的,都过了,怎么现在规模小了倒错了呢???
郁闷....
先谢谢了....
#1 Jollwish@2008-08-12 06:43:00
4420
回复
删除
9.
in:204857327 205341273
out:828132 343459 827109 284442 377141 577141 243194 243862 286858 344185
10.
in:1799999999 1800200000
out:600007 400002 100001 100000 100000 100000 100000 100001 300001 100008
我用马甲冒死cheat来的...(你看状态里的"龘"就是我)
其实此题我早对了...
#2 vinence@2008-08-12 06:44:00
4421
回复
删除
var
a,b,i,ls:longint;
f:array[0..9] of longint;
begin
readln(a,b);
for i:=a to b do
begin
ls:=i;
repeat
inc(f[ls mod 10]);
ls:=ls div 10;
until ls=0;
end;
for i:=0 to 9 do write(f[i],’ ’);
end.
#3 Jollwish@2008-08-12 06:44:00
4422
回复
删除
var n,m,i,j:longint;
a:array[0..9]of longint;
begin
readln(m,n);
for i:=m to n do
begin
j:=i;
while j>0 do
begin
inc(a[j mod 10]);
j:=j div 10;
end;
end;
write(a[0]);
for i:=1 to 9 do write(’ ’,a[i]);
end.