题目：
输入一个三位数x，它的个位数为a，十位数为b，百位数为c，请把它的各个位数分离出来并输出。
提示：应用的赋值语句和数位分离，整除 DIV，取余 MOD 。
知识点：
div 整除，mod 取余数，p34
数位分离
代码：
1 program shen3;
2 var
3 x,a,b,c:integer;
4 BEGIN
5 readln(x);
6 a:=x mod 10;
7 b:=x mod 100 div 10;
8 c:=x div 100;
9 writeln(a,b,c);
10 END.
加强训练：输入一个四位数，求个，十，百，千位的和并输出。
1 program shen4;
2
3 var
4 a,b,c,d,e:integer;
5 BEGIN
6 readln(a);
7 b := a div 1000;
8 c := a mod 1000 div 100;
9 d := a mod 100 div 10;
10 e := a mod 10;
11 writeln(b+c+d+e);
12 END.