输入任意两个两位的自然数,输出它们完整的乘法竖式。

题目:

    输入任意两个两位的自然数,输出它们完整的乘法竖式。

 

代码:

 1 program shen17;
 2 var
 3   a,b,c,d:integer;
 4 BEGIN
 5   readln(a,b);
 6   c:=a * (b mod 10);
 7   d:=a * (b div 10);
 8   writeln(a:10);
 9   writeln('*',b:9);
10   writeln('----------');
11   writeln(c:10);
12   writeln(d:9);
13   writeln('----------');
14   writeln(a*b:10);
15 END.

 

posted @ 2016-12-02 14:54  橙煦猿  阅读(290)  评论(0编辑  收藏  举报