状态: Accepted

测评机： Xeond[6]

得分： 100分 [我要评价一下题目~]

提交日期： 2012-7-15 17:39:00

有效耗时： 6062毫秒

测试结果1: 通过本测试点|有效耗时172ms

测试结果2: 通过本测试点|有效耗时172ms

测试结果3: 通过本测试点|有效耗时172ms

测试结果4: 通过本测试点|有效耗时172ms

测试结果5: 通过本测试点|有效耗时953ms

测试结果6: 通过本测试点|有效耗时875ms

测试结果7: 通过本测试点|有效耗时875ms

测试结果8: 通过本测试点|有效耗时875ms

测试结果9: 通过本测试点|有效耗时906ms

测试结果10: 通过本测试点|有效耗时890ms

提交代码： view sourceprint?

01.type

02. numbertype=array[0..2000000]of longint;

03. var

04. a,b:numbertype;

05. i,k,len1,len2,ws,j:longint;

06. s1,s2:ansistring;

07.begin

08.readln(ws);

09.readln(s1);

10.readln(s2);

11.for i:=1 to ws do a[ws-i]:=ord(s1[i])-ord('0');

12.for i:=1 to ws do b[ws-i]:=ord(s2[i])-ord('0');

13.for i:=ws-1 downto 0 do

14.begin

15.for j:=ws-1 downto 1 do inc(a[i+j],a[i]*b[j]);

16.a[i]:=a[i]*b[0];

17.end;

18.k:=ws+ws-1;

19.for i:=0 to k-1 do

20.begin

21.inc(a[i+1],a[i] div 10);

22.a[i]:=a[i] mod 10;

23.end;

24.if a[k]<>0 then inc(k);

25.for i:=k-1 downto 0 do write(a[i]);

27.end.

说明，仅供参考