P1040 高精度乘法

描述
高精度乘法
输入：两行，每行表示一个非负整数（不超过10000位）
输出：两数的乘积。

解：这个。。。也是基本功啦。乘法中，两数相乘，结果位数最多为两数位数总和，这是一点；然后就是注意进位就好

程序：

var
        a,b:ansistring;
        i,j,k,p,l:longint;
        m,n:array[1..10000]of longint;
        ans:array[1..20000]of longint;
begin
        readln(a);
        readln(b);
        if(a='0')or(b='0')then
        begin
                write('0');
                halt;
        end;
        for i:=length(a) downto 1 do
        begin
                inc(j);
                val(a[i],m[j],p);
        end;
        for i:=length(b) downto 1 do
        begin
                inc(k);
                val(b[i],n[k],p);
        end;
        for i:=1 to j do
        begin
                for l:=1 to k do ans[i+l-1]:=ans[i+l-1]+(m[i]*n[l]);
        end;
        for i:=1 to j+k-1 do
        begin
                if ans[i]>9 then
                begin
                        ans[i+1]:=ans[i+1]+(ans[i] div 10);
                        ans[i]:=ans[i] mod 10;
                end;
        end;
        if ans[j+k]>0 then write(ans[j+k]);
        for i:=j+k-1 downto 1 do write(ans[i]);
end.