作业帮 > 综合 > 作业

pascal高精度乘法(高精度乘单精度)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/05 13:41:30
pascal高精度乘法(高精度乘单精度)
Description
输入两个正整数m、n,输出m*n的值.
Input
第一行只有一个正整数:m ( 1 < m < 10^10000 )
第二行只有一个正整数:n ( 1 < n < 10^16 )
Output
只有一行且只有一个正整数:m*n的值
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.