记录编号	213731	评测结果	AAAAAAAAAAAA
题目名称	增强的乘法问题	最终得分	100
用户昵称	FoolMike	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2015-12-13 11:11:17	内存使用	0.17 MiB

label en;
var
a,b:ansistring;
c,d,i,j:longint;
x,y,z:array[0..200]of longint;
begin
assign(input,'mul.in');
reset(input);
assign(output,'mul.out');
rewrite(output);
readln(a);
c:=length(a);
for i:=1 to c do
x[i]:=ord(a[c-i+1])-48;
readln(b);
d:=length(b);
for i:=d downto 1 do
y[i]:=ord(b[d-i+1])-48;
for i:=1 to c do
for j:=1 to d do
inc(z[i+j-1],x[i]*y[j]);
for i:=1 to c+d do
  begin
  inc(z[i+1],z[i] div 10);
  z[i]:=z[i] mod 10;
  end;
z[0]:=1;
i:=200;
while z[i]=0 do dec(i);
if i=0 then
  begin
  writeln(0);
  goto en;
  end;
for i:=i downto 1 do
write(z[i]);
writeln;
en:
close(input);
close(output);
end.