Gấu nhà ta rất tức tối trước những phép nhân dài dằng dặc ở trong lớp, cậu ta liền xây dựng một phép nhân của mình như sau: A*B thay vì nhân bình thường sẽ là tổng các thành phần của A nhân với các thành phần của B. Ví dụ kết quả của phép nhân của Gấu 123*45 là 1*4 + 1*5 + 2*4 + 2*5 + 3*4 + 3*5 = 54.
Yêu cầu: Cho hai số nguyên A và B cách nhau ít nhất một khoảng trắng, xác định giá trị A*B theo kiểu nhân của Gấu.
uses crt;
var a,b,c,d,e,f,l,i,dem,n,v,x,y,p,d1:longint;
m,k:array[1..10000000] of longint;
s:real; st:ansistring;
begin
clrscr;
write('Nhap so nguyen A: ');readln(a);
write('Nhap so nguyen B: ');readln(b);
d1:=0;d:=0;
while b<>0 do
begin
v:=b mod 10;
b:=b div 10;
d:=d+v;
end;
while a<>0 do
begin
p:=a mod 10;
a:=a div 10;
d1:=d1+p;
end;
write(d*d1);
readln;
end.
