这测试数据有没有问题!!??

这测试数据有没有问题!!??

What's wrong?

我既压了位又补了零, 为什么只过了2组:

编译通过...

├ 测试数据 01:答案正确... 0ms

├ 测试数据 02:答案正确... 0ms

├ 测试数据 03:答案错误...

 ├ Hint: WA ├ 标准行输出

 ├ 错误行输出

├ 测试数据 04:答案错误...

 ├ Hint: WA ├ 标准行输出

 ├ 错误行输出

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分:50 有效耗时:0ms

程序:

program dyh(input,output);

var

st1,st2:string;

a,b:packed array[1..2500]of integer;

i,j,l1,l2:integer;

c:packed array[1..10000]of longint;

begin

readln(st1);

readln(st2);

l1:=length(st1);

l2:=length(st2);

for i:=1 to (l1-1) div 4 do

val(copy(st1,l1-i*4+1,4),a[i]);

val(copy(st1,1,(l1-1)mod 4+1),a[(l1-1) div 4+1]);

l1:=(l1-1) div 4+1;

for i:=1 to (l2-1) div 4 do

val(copy(st2,l2-i*4+1,4),b[i]);

val(copy(st2,1,(l2-1)mod 4+1),b[(l2-1) div 4+1]);

l2:=(l2-1) div 4+1;

for i:=1 to l1 do

for j:=1 to l2 do

begin

c:=c+a[i]*b[j];

c:=c+cdiv 10000;

c:=cmod 10000;

end;

if c[l1+l2]=0 then l2:=l2-1;

write(c[l1+l2]);

for i:=l1+l2-1 downto 1 do

if (c[i]

1 条评论

  • @ 2009-07-17 18:32:51

    跟我一样

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案错误...

     ├ Hint: WA 

    ├ 标准行输出 ...5226014...

     ├ 错误行输出 ...5225978...

    ├ 测试数据 04:答案错误...

     ├ Hint: WA 

    ├ 标准行输出 ...9544324...

     ├ 错误行输出 ...9543792...

    ---|---|---|---|---|---|---|---|-

    Unaccepted 有效得分:50 有效耗时:0ms

  • 1

信息

ID
1040
难度
7
分类
高精度 点击显示
标签
(无)
递交数
16503
已通过
3154
通过率
19%
被复制
23
上传者