題目描述

求兩數的積。

輸入輸出格式

輸入格式：
兩個數

輸出格式：
積

輸入輸出樣例

輸入樣例#1：
1
2
輸出樣例#1：
2
說明

需用高精

分析：高精乘模版題。

程式碼：

var i,x,y,j,z:integer;
    m,n:ansistring;
    a,b,c:array[1..10000] of int64;
begin
for i:=1 to 10000 do c[i]:=0;           
readln(m);
read(n);
x:=length(m);
y:=length(n);
for i:=1 to x do
a[i]:=ord(m[x+1
 
-i])-48;
for i:=1 to y do                                     
b[i]:=ord(n[y+1-i])-48;
for i:=(x+1) to 10000 do
a[i]:=0;                                      
for i:=(y+1) to 10000 do
b[i]:=0;
for i:=1 to y do
for j:=1 to x do
c[i-1+j]:=c[i-1+j]+a[j]*b[i];                  
for i:=1 to 10000 do
if c[i]>9 then
while
 
 c[i]>9 do
begin
 c[i+1]:=c[i+1]+c[i] div 10;                    
 c[i]:=c[i] mod 10;                          
end;
for i:=10000 downto 1 do
if c[i]<>0 then break;
for j:=i downto 1 do              
write(c[j]);
readln;
readln;
end.