20161201 输入一个四位数，分别输出它个位，十位，百位，千位上的数字（要求，输出时每个数字间空一格）。...

题目：

    输入一个四位数，分别输出它个位，十位，百位，千位上的数字（要求，输出时每个数字间空一格）。

 

代码：

 1 program work20161201;
 2 var
 3   a,b,c,d,e:integer;
 4 BEGIN
 5   readln(a);
 6   e:=a div 1000;
 7   d:=a mod 1000 div 100;
 8   c:=a mod 100 div 10;
 9   b:=a mod 10;
10   writeln(b,c:2,d:2,e:2);
11 END.

 

老师的答案：