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 m

>>阅读原文<<