pascal高精度乘法(高精度乘单精度)Description输入两个正整数m、n,输出m*n的值.Input第一行只有一个正整数:m ( 1 < m < 10^10000 ) 第二行只有一个正整数:n ( 1 < n < 10^16 ) Output只有一行且只有一个
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 20:45:19
![pascal高精度乘法(高精度乘单精度)Description输入两个正整数m、n,输出m*n的值.Input第一行只有一个正整数:m ( 1 < m < 10^10000 ) 第二行只有一个正整数:n ( 1 < n < 10^16 ) Output只有一行且只有一个](/uploads/image/z/5168733-69-3.jpg?t=pascal%E9%AB%98%E7%B2%BE%E5%BA%A6%E4%B9%98%E6%B3%95%EF%BC%88%E9%AB%98%E7%B2%BE%E5%BA%A6%E4%B9%98%E5%8D%95%E7%B2%BE%E5%BA%A6%EF%BC%89Description%E8%BE%93%E5%85%A5%E4%B8%A4%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0m%E3%80%81n%2C%E8%BE%93%E5%87%BAm%2An%E7%9A%84%E5%80%BC.Input%E7%AC%AC%E4%B8%80%E8%A1%8C%E5%8F%AA%E6%9C%89%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%EF%BC%9Am+%28+1+%3C+m+%3C+10%5E10000+%29+%E7%AC%AC%E4%BA%8C%E8%A1%8C%E5%8F%AA%E6%9C%89%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%EF%BC%9An+%28+1+%3C+n+%3C+10%5E16+%29+Output%E5%8F%AA%E6%9C%89%E4%B8%80%E8%A1%8C%E4%B8%94%E5%8F%AA%E6%9C%89%E4%B8%80%E4%B8%AA)
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.