pascal 輸入 N 個數字，並按照與輸入時相反的順序在螢幕上顯示它們

只需使用陣列即可。

var a:array[1..1000]of longint;

b:array[1..1000]of longint;

i,x,n:longint;

beginread(n);

for i:=1 to n do read(a[i]);

for i:=n downto 1 do b[i]:=a[n-i+1];

for i:=1 to n do write(b[i],' ');

end.這種方法有點暴力，你也可以直接在陣列上交換。

var a:array[1..1000]of longint;

i,x,n,j:longint;

beginread(n);

for i:=1 to n do read(a[i]);

for i:=1 to (n div 2)dobeginx:=a[n-i+1];

a[n-i+1]:=a[i];

a[i]:=x;

end;for i:=1 to n do write(a[i],' ');

end.這種方法會更快一些。

純手工乞討。

問題的關鍵是處理最後的0，程式如下：

輸入乙個正整數並以相反的順序輸出，每個數字停止後有乙個空格。

輸入乙個正整數 n，您可以假設 n 在 int 範圍內。

輸出以相反的順序輸出 n，每個數字後面有乙個空格，輸出占用一行。 /#include

int main()

int i;

int n;

scanf("%d",&n);

int num = 0;

for(i = 0; ;i ++

num = n % 10;

n /=10;

printf("%d",num);

if( n < 1)

break;

return 0;

問題的關鍵是處理最後的0，程式如下：

輸入乙個正整數並以相反的順序輸出，每個數字後面有乙個空格。

輸入乙個正整數 n，可以假設 n 在 int 範圍內輸出，輸出 n 以相反的順序輸出，每個數字後面有乙個空格，輸出占用一行。 /#include

int main()

int i;

int n;

scanf("%d",&n);

int num = 0;

for(i = 0; ;i ++

num = n % 10;

n /= 10;

printf("%d",num);

if( n < 1)

break;

return 0;

將其作為字串處理非常容易

vari,j:longint;

n:string;

beginreadln(n);

for i:=length(n) downto 1 doif n[i]<>'0' then break;這一步是去掉先例 0

for j:=i downto 1 do write(n[j]);

writeln;

end.當然，您也可以使用陣列。

將 n 定義為字元陣列 n：array [1..9] of char;

為此，還要注意長度。

當然，也可以直接通過整形手術來做！

varn:longint;

beginreadln(n);

while (n mod 10=0) do n:=n div 10;這一步是去掉先例 0

while n<>0 do

beginwrite(n mod 10);輸出最後一位數字 n：=n div 10; 刪除最後一位數字的結尾;

writeln;

end.從三種方法中選擇

問題的關鍵是處理 0

操作步驟如下：var s：string;

i,j:integer;

beginreadln(s);整數儲存為字串;

for i:=length(s) downto 1 doif s[i]<>'0' then break;這一步是找到 S 字串最右邊非 0 數字的位置，並用 i 寫下來;

for j:=i downto 1 do write(s[j]);

readln;

end.