输入一个三位数x，它的个位数为a，十位数为b，百位数为c，请把它的各个位数分离出来并输出。

题目：

    输入一个三位数x，它的个位数为a，十位数为b，百位数为c，请把它的各个位数分离出来并输出。

    提示：应用的赋值语句和数位分离，整除 DIV，取余 MOD 。

知识点：

    div 整除，mod 取余数，p34

    数位分离

代码：

program shen3;
var
  x,a,b,c:integer;
BEGIN
  readln(x);
  a:=x mod 10;
  b:=x mod 100 div 10;
  c:=x div 100;
  writeln(a,b,c);
END.

加强训练：输入一个四位数，求个，十，百，千位的和并输出。

program shen4;

var
  a,b,c,d,e:integer;
BEGIN
  readln(a);
  b := a div 1000;
  c := a mod 1000 div 100;
  d := a mod 100 div 10;
  e := a mod 10;
  writeln(b+c+d+e);
END.