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

题目：

    输入一个三位数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.

 

转载于:https://www.cnblogs.com/cnssc/p/6114251.html