【USACO】奶牛式乘法

【USACO】奶牛式乘法

时间限制: 1 Sec   内存限制: 16 MB
提交: 780   解决: 632
[ 提交][ 状态][ 讨论版]

题目描述

做厌了乘法计算题的贝茜，自创了一种新的乘法运算法则。在这套法则里，A*B等于一个取自A、一个取自B的所有数字对的乘积的和。比方说，123*45等于1*4 + 1*5 + 2*4 + 2*5 + 3*4 + 3*5 = 54。对于2个给定的数A、B (1 <= A, B <= 长整型最大数)，你的任务是，用新的乘法法则计算A*B的值。

输入

2个用空格隔开的整数：A、B

输出

输出1个整数，即新的乘法法则下A*B的值

样例输入

123 45

样例输出

54

提示

 

来源

USACO 2008 February Bronze

 

var a,b:array[1..20] of longint;
    alen,blen,m,n,i,j,x:longint;
begin
    readln(m,n);
    alen:=0; blen:=0;
    while m>0 do
    begin
        inc(alen);
        a[alen]:=m mod 10;
        m:=m div 10;
    end;
    while n>0 do
    begin
        inc(blen);
        b[blen]:=n mod 10;
        n:=n div 10;
    end;
    for i:=1 to alen do
        for j:=1 to blen do
            x:=x+a[i]*b[j];
    writeln(x);
end.

方法二：（巧用数学）

 

var a,b:longint;

function sum(a:longint):longint;
begin
     if a< 10  then exit(a);
    exit(sum(a  div  10)+a  mod  10);
end;

begin
    readln(a,b);
    writeln(sum(a)*sum(b));
end.

 

转载于:https://www.cnblogs.com/qilinart/articles/2983668.html