作业帮pascal高精度乘法（高精度乘单精度）Description输入两个正整数m、n,输出m*n的值.Input第一行只有一个正整数：m ( 1 < m < 10^10000 ) 第二行只有一个正整数：n ( 1 < n < 10^16 ) Output只有一行且只有一个
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/15 12:14:46
pascal高精度乘法（高精度乘单精度）Description输入两个正整数m、n,输出m*n的值.Input第一行只有一个正整数：m ( 1 < m < 10^10000 ) 第二行只有一个正整数：n ( 1 < n < 10^16 ) Output只有一行且只有一个
pascal高精度乘法（高精度乘单精度）
Description
输入两个正整数m、n,输出m*n的值.
Input
第一行只有一个正整数：m ( 1 < m < 10^10000 )
第二行只有一个正整数：n ( 1 < n < 10^16 )
Output
只有一行且只有一个正整数：m*n的值
pascal高精度乘法（高精度乘单精度）Description输入两个正整数m、n,输出m*n的值.Input第一行只有一个正整数：m ( 1 < m < 10^10000 ) 第二行只有一个正整数：n ( 1 < n < 10^16 ) Output只有一行且只有一个
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.