1樓：
varst:string;
i:integer;
begin
readln(st);
while st[length(st)]='0' do delete(st,length(st),1);
for i:=length(st) downto 1 dowrite(st[i]);
end.
2樓：
var a:array[1..10] of integer;
n,i:integer;
begin read(n);
a[1]:=n mod 10;
a[2]:=n div 10 mod 10;
a[3]:=n div 10;
for i:=1 to 3 do write(a[i]);
end.
3樓：匿名使用者
var a:integer;
begin
readln(a);
writeln(a mod 10,a div 10 mod 10,a div 100);
readln;
end.
4樓：徐可添
var s:string;
begin
readln(s);
writeln(s[3],s[2],s[1]);
end.
程式以簡單實用至上!
5樓：天才金童
var a:integer;
begin
readln(a);
if a mod 10<>0 then write(a mod 10)
write(a div 10 mod 10,a div 100);
end.
6樓：匿名使用者
var a, b, c: char;
begin
read(a, b, c);
write(c, b, a);
end.
7樓：匿名使用者
vari,a,b,c,s:integer;
begin
s:=0;
readln(i);
a:=i div 100;
b:=(i div 10) mod 10;
c:=i mod 10;
s:=a+b*10+c*100;
writeln(s);
end.
如何使用vb程式設計輸入乙個三位數，將其倒序輸出？
pascal輸入乙個4位數，將它的各位數字倒序輸出
8樓：匿名使用者
vara,b,c,d:char;
begin
readln(a,b,c,d);
writeln(d,c,b,a);
end.
9樓：西蓮公主
vars:string;
i:integer;
begin
readln(s);
for i:=length(s) downto 1 do write(s[i]);
end.
10樓：匿名使用者
說了用 div和mod來做；
那就是var
a,b,c,d,e:longint;
begin
readln(a); // （讀入）b:=a div 1000; // （拆分，取第一位）；
c:=a div 100 mod 10;// （拆分，取第二位）；
d:=a div 10 mod 10; //（拆分，取第三位）；
e:=a mod 10; // （拆分，取四位）；
write(e,d,c,b); // （輸出）；
end.
11樓：李洋四一班
可以使用字串處理
vars:string;
i:longint;
begin
readln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
end.
pascal語言中的幾道程式輸入乙個二/三/四位數，輸出其數字倒序
12樓：溫呦小胤子
二三四位數，看樣子lz還不會陣列和字串 你們那麼寫lz哪看得懂。。。。 就讀入乙個整型變數 program lb; var num:integer; begin readln(num); while num<>0 do begin writeln(num mod 10); num:
=num div 10; end; end.
pascal語言:輸入乙個字串，把他按正序和反序分別輸出
13樓：匿名使用者
vars:ansistring;//定義字串，此處是用的擴充套件字串，可以讀入任意大小的字串
i:longint;//迴圈變數
begin
readln(s);
writeln(s);
for i:=length(s) downto 1 do write(s[i]);//逆序輸出s，其中length(s)為s的長度
writeln;
end.
建議樓主這種問題還是自己做,呵呵
14樓：匿名使用者
1、pascal示例：
var i:integer;
begin
read(s);
writeln();
writeln(s);
for i:=length(s) downto 1 dobegin
write( copy(s,i,1));
endend.
2、以上程式free pascal 3.0測試通過。
15樓：匿名使用者
這是最簡單的題目了，你不會嗎
var s:string;i:longint;
begin
read(s);
writeln(s);
for i:=length(s) downto 1 do write(s[i]);
end.
16樓：匿名使用者
var s:string;//應該夠了，有些ansistring執行不了
i:longint;
begin
readln(s);
writeln(s);
for i:=length(s) downto 1 do write(s[i]);
end.
17樓：匿名使用者
vars:string;
i:longint;
begin
readln(s);
writeln(s);
for i:=length(s) downto 1 do write(s[i])
writeln;
end.
輸入乙個三位整數（如：285），將它的各位數字倒序輸出（582），用pascal，要完整
18樓：匿名使用者
var i:longint;
st1,st2:string; //定義為字串begin
st2:=''; //初始化
readln(st1);
for i:=length(st1) downto 1 do //倒入
st2:=st2+st1[i]; //st2記憶writeln(st2);
end.
lz，可倒200多位哦~~ = =!
本人親測，望採納~~
19樓：匿名使用者
var i,a,b,c:longint;
begin
readln(i);
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
write(100*c+10*b+a);
end.
這個簡單一點
20樓：
給你個c的作參考……
#include "stdio.h"
#include "stdlib.h"
#include "string.h"
void main(void)
c++ 考試題目：程式設計：輸入乙個三位整數，將它反向輸出。
21樓：愛了多
這個還不簡單
int n = 0;
cin >> n
while(n > 0)
22樓：
除100，得到百位，取余得個位和十位
第一步得到的兩位數除10，得十位，取余得個位
反向拼起來就行了。
23樓：
核心**
int n = 0;
cin >> n;
while(n > 0)
朋友，請【採納答案】，您的採納是我答題的動力，如果沒有明白，請追問。謝謝。
24樓：鬱草小沙彌
思路是把輸入的數的個位、十位、百位上的數分別取出來，再重新倒序組合起來，**如下（你自己加上必要的標頭檔案吧）：
int main()
輸入三位數，將它反向輸出，程式設計，輸入乙個三位數，將它反向輸出，程式設計
include main 三位數除以100那麼商就是三位數的百位上數字，三位數除以10的商再除以10的餘數就是三位數的十位上的數字，三位數除以10的餘數就是三位數個位上的數字。輸入三位數.345除100取整 a 345減a乘100 得45後除10取整 b345減a乘100減b乘10得c.然後c 10...
C語言中輸入三位數如何輸出這個三位數是哪數
include define array len 100 陣列長度 int numtodigit int num,int arr while i 逆序儲存 arr j temp i return count void printarr int arr,int len 列印陣列 int i for i...
輸入三位數整數，將它反向輸出。例如輸入127，輸出應為
用個陣列記錄 然後陣列反過來輸出 還可以把3位是放在乙個比如int a裡 然後整除100 把百位放在乙個陣列比如b 1 然後 a 10 b 1 整除10 放在b 2 裡 最後b 3 就是a 100 b 1 10 b 2 然後輸出b 3 b 2 b 1 include void run char p ...
請教ecel中a1輸入任意三位數字在b1中顯示是
b1 ctrl shift 回車結束 if and len a1 2,sum int mid a1,1 mid a1,1 0 6 choose 1 sum mod mid a1,1 2 兩偶一奇 兩奇一偶 試過，沒問題，新手求分！b1輸入 if len substitute substitute s...
三位一體是指什麼，政治中的「三位一體」是什麼？
三位一體 是基們的基本信仰，指的是 聖父 耶和華 聖子 耶穌耶大牛皮 聖靈 三位一體，即乙個 神 的三個位格。所以說，耶穌就是他自己的爸爸，他爸爸就是他自己。聖父，聖子，聖靈。holyfather,holyson and holy spirit 政治中的 三位一體 是什麼？三位一體指的是 1986年...