讨论 / 有谁帮下忙,用你们AC的程序给我两组数据试试....
huizezlk 2011-01-03 21:37:00
点我顶贴 收藏 删除
我的程序能过8组,但是最后两组的前两个都有问题...都是0的个数错了,杂回事呢.....

我以前像这样写过从0...2000000000的,都过了,怎么现在规模小了倒错了呢???

郁闷....

先谢谢了....

#1 Jollwish@2008-08-12 06:43:00
回复 删除
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
回复 删除
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
回复 删除
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.

#4 huizezlk@2008-08-12 08:58:00
回复 删除
呵呵,谢谢了
#5 zl6697756@2011-01-03 21:37:00
回复 删除
二楼的数据我在VC上运行是对的,怎么一提交却不对呢?请知道的告诉一声!非常感谢!
查看更多回复
提交回复