题目描述 Description
给出两个正整数A和B,计算A*B的值。保证A和B的位数不超过500位。
输入描述 Input Description
读入两个用空格隔开的正整数
输出描述 Output Description
输出A*B的值
样例输入 Sample Input
3 12
样例输出 Sample Output
36
数据范围及提示 Data Size & Hint
给出两个正整数A和B,计算A*B的值。保证A和B的位数不超过500位。
输入描述 Input Description
读入两个用空格隔开的正整数
输出描述 Output Description
输出A*B的值
样例输入 Sample Input
3 12
样例输出 Sample Output
36
数据范围及提示 Data Size & Hint
两个正整数的位数不超过500位
代码:
const
maxn=1000;
var
a,b,c:array [1..maxn] of longint;
s1,s2:ansistring;
procedure init;
var
i:longint;
begin
readln(s2);
for i:=1 to length(s2) do
if s2[i]=' ' then
begin
s1:=copy(s2,1,i-1);
delete(s2,1,i);
break;
end;
end;
function ggc(s1,s2:ansistring):ansistring;
var
i,j,lena,lenb,lenc,temp:longint;
s:ansistring;
begin
lena:=length(s1);