Pascal【入門】倒序輸出一個四位整數
阿新 • • 發佈:2019-01-30
題目描述:
任意輸入一個四位數,顛倒後輸出。
輸入:
輸入一行,只有一個整數x。(1000<x<9999)
輸出:
輸出只有一行,為一個整數。
樣例輸入:
1234
樣例輸出:
4321
提示:顯然,此題有兩種解法。那麼我為大家寫兩份程式碼。
- 可以以字串的形式來做,可以以字串的倒序輸出實現。
- 純粹地提取各位,此題僅是一個四位數。
程式碼實現:
var s:string; i:longint; begin readln(s); for i:=length(s) downto 1 do write(s[i]); end.
var n,sum1,sum2,sum3,sum4:longint;
begin
read(n);
sum1:=n mod 10;//個位
sum2:=n mod 100 div 10;//十位
sum3:=n div 100 mod 10;//百位
sum4:=n div 1000;//千位
write(sum1,sum2,sum3,sum4);
end.