1樓：匿名使用者
var a,b,c,n:integer;
begin
readln(n);
a:=n div 100;n:=n mod 100;
b:=n div 10;n:=n mod 10;
c:=n;
writeln(c,b,a);
readln;
end.
儲存一個空白的,然後關掉,把儲存的檔案用記事本開啟,直接複製.begin到end之間每行空兩格.給我最佳
2樓：匿名使用者
vari:integer;
a:string;
beign
readln(a); 用字串讀入a；
for i:=length(a) downto 1 do write(a[i]);從a的最後一位開始輸出 直到第一位；
writeln; 換行
end;
3樓：匿名使用者
var s:string;
i:longint;
begin
readln(s);
for i:=length(s) downto 1 dowrite(s[i]);
end.
4樓：匿名使用者
var a,b,c,d,e:longint;
begin
readln(a);
b:=a;
c:=1;
repeat
b:=b div 10;
c:=c*10;
until b=0;
c:=c div 10;
while a<>0 do begin
d:=a mod 10;
e:=e+d*c;
c:=c div 10;
a:=a div 10;
end;
writeln(e);
end.
給我最佳
5樓：閩江大叔
轉換字串。
然後反轉。
再轉為數字。
很簡單。
6樓：匿名使用者
program sobad; sobad是我的小名
vari:longint;
st:string;
begin
while true do 「while true do」為的是測試方便，按ctrl+c即可退出
begin
readln(st);
for i:=lengint(st) downto 1 dowrite(st[i]);
writeln;
end;
end.
無聊耍下帥... ...
問道高手來看看
這個要有技巧的 你是力的 就只就都打 最後打狗頭 如果你是法的 就只打狗頭和拿刀的 見藍得就跑 最好配合3倍和8掛 2小時400w經驗 沒問題希望採納 你能點到60級的滿級 96級 這個技能點到100級就行了，點高了浪費藍，傷害加很少的 你是個全敏的水吧。沒必要去花錢砸這個110的裝備。刷十絕升級到...
VB高手來看看
在屬性視窗將按鈕的 style 屬性設定為 1 程式中，你把圖示提取到picture裡後，就可以這樣在按鈕上顯示 option explicit private declare function drawicon lib user32 byval hdc as long,byval x as lon...
高手來看看這名字，高手來看看這4個名字
妙妙紫 沈言楓比較好吧！言代表說話的意思 楓是楓葉的楓 很好看也很稀少 所以我覺得沈言楓挺好的 名字你喜歡哪個就用哪個 其實不用讓別人給你提意見的 只要自己喜歡就行 名字不是給別人聽的 尐時後 狠傻 1.澤 近似音zhe折，宇有大氣之意，折宇 便否定了此意。2.澤希很好 3.炎是火，風會把火吹滅，或...