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.

 

老师的答案:

 


免责声明!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系本站邮箱yoyou2525@163.com删除。



 
粤ICP备18138465号  © 2018-2025 CODEPRJ.COM