題目:
輸入一個四位數,分別輸出它個位,十位,百位,千位上的數字(要求,輸出時每個數字間空一格)。
代碼:
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.
老師的答案:
題目:
輸入一個四位數,分別輸出它個位,十位,百位,千位上的數字(要求,輸出時每個數字間空一格)。
代碼:
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刪除。