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