輸入一個三位數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.