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

题目：

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

 

代码：

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

 

老师的答案：

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