1. 程式人生 > >Pascal【入門】倒序輸出一個四位整數

Pascal【入門】倒序輸出一個四位整數

題目描述:

任意輸入一個四位數,顛倒後輸出。

輸入:

輸入一行,只有一個整數x。(1000<x<9999)

輸出:

輸出只有一行,為一個整數。

樣例輸入:

1234

樣例輸出:

4321

提示:顯然,此題有兩種解法。那麼我為大家寫兩份程式碼。

  1. 可以以字串的形式來做,可以以字串的倒序輸出實現。
  2. 純粹地提取各位,此題僅是一個四位數。

程式碼實現:

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.