洛谷 1303——A*B Problem

题目描述

求两数的积。

输入输出格式

输入格式：
两个数

输出格式：
积

输入输出样例

输入样例#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;
end.