Question

pascal高精度乘法（高精度乘单精度）

Description
输入两个正整数m、n，输出m*n的值。
Input
第一行只有一个正整数：m ( 1 < m < 10^10000 )
第二行只有一个正整数：n ( 1 < n < 10^16 )
Output
只有一行且只有一个正整数：m*n的值

Answer 1

var
m:array[1..10000] of qword;
ans:array[0..10000] of qword;
mm,i:longint;
n:qword;
ch:char;
begin
mm:=0;
while not eoln do begin inc(mm);read(ch);m[mm]:=ord(ch)-48;end;
readln(n);
for i:=mm downto 1 do
begin
ans[i]:=ans[i]+m[i]*n;
ans[i-1]:=ans[i] div 10;
ans[i]:=ans[i]-ans[i-1]*10;
end;
if ans[0]<>0 then write(ans[0]);
for i:=1 to mm do write(ans[i]);
writeln;
end.

Answer 2

这样？
var
m:array[1..10000] of qword;
ans:array[0..10000] of qword;
mm,i:longint;
n:qword;
ch:char;
begin
mm:=0;
while not eoln do begin inc(mm);read(ch);m[mm]:=ord(ch)-48;end;
readln(n);
for i:=mm downto 1 do
begin
ans[i]:=ans[i]+m[i]*n;
ans[i-1]:=ans[i] div 10;
ans[i]:=ans[i]-ans[i-1]*10;
end;
if ans[0]<>0 then write(ans[0]);
for i:=1 to mm do write(ans[i]);
writeln;
end.

Answer 3

.