1754: [Usaco2005 qua]Bull Math

1754: [Usaco2005 qua]Bull Math

Time Limit: 5 Sec  Memory Limit: 64 MB
Submit: 398  Solved: 242
[Submit][Status][Discuss]

Description

Bulls are so much better at math than the cows. They can multiply huge integers together and get perfectly precise answers ... or so they say. Farmer John wonders if their answers are correct. Help him check the bulls' answers. Read in two positive integers (no more than 40 digits each) and compute their product. Output it as a normal number (with no extra leading zeros). FJ asks that you do this yourself; don't use a special library function for the multiplication. 输入两个数,输出其乘积

Input

* Lines 1..2: Each line contains a single decimal number.

Output

* Line 1: The exact product of the two input lines

Sample Input

11111111111111
1111111111

Sample Output

12345679011110987654321

HINT

 

Source

Gold

 

题解：萌萌哒高精度乘法= =

/**************************************************************
    Problem: 1754
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:0 ms
    Memory:376 kb
****************************************************************/
 
var
   i,j,k,l,m,n:longint;
   a,b,c:array[0..10000] of longint;
   s1,s2:ansistring;
begin
     readln(s1);
     readln(s2);
     a[0]:=length(s1);
     for i:=1 to a[0] do a[i]:=ord(s1[a[0]+1-i])-48;
     b[0]:=length(s2);
     for i:=1 to b[0] do b[i]:=ord(s2[b[0]+1-i])-48;
     c[0]:=a[0]+b[0];
     for i:=1 to a[0] do
         for j:=1 to b[0] do
             begin
                  c[i+j-1]:=c[i+j-1]+a[i]*b[j];
                  c[i+j]:=c[i+j]+c[i+j-1] div 10;
                  c[i+j-1]:=c[i+j-1] mod 10;
             end;
     while (c[0]>1) and (c[c[0]]=0) do dec(c[0]);
     for i:=c[0] downto 1 do write(c[i]);
     writeln;
     readln;
end.