记录编号	70193	评测结果	AAAAAAAAAAAA
题目名称	增强的乘法问题	最终得分	100
用户昵称	张铭哲	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2013-09-24 22:51:13	内存使用	0.17 MiB

var
a,b,c:array[1..256] of integer;
n1,n2:string;
lena,lenb,lenc,i,j,x:integer;
begin
assign(input,'mul.in');
reset(input);
assign(output,'mul.out');
rewrite(output);
readln(n1);
readln(n2);
lena:=length(n1);
lenb:=length(n2);
for i:=1 to lena do
a[lena-i+1]:=ord(n1[i])-48;
for i:=1 to lenb do
b[lenb-i+1]:=ord(n2[i])-48;
for i:=1 to lena do
begin
x:=0;
for j:=1 to lenb do
begin
x:=x div 10+a[i]*b[j]+c[i+j-1];
c[i+j-1]:=x mod 10;
end;
c[i+j]:=x div 10;
end;
lenc:=lena+lenb;
while (c[lenc]=0)and(lenc>1) do
dec(lenc);
for i:=lenc downto 1 do
write(c[i]);
end.