主题:如何把123转换成321输出?
yanqing0214
[专家分:0] 发布于 2005-03-29 23:07:00
怎么用pascal把123转换成321输出?
回复列表 (共7个回复)
沙发
xuzhenyi [专家分:850] 发布于 2005-03-30 20:44:00
var s:string;
k,i:integer;
begin
readln(s);
k:=length(s);
for i:=k down to 1 do
write(copy(s,k,1));
end.
板凳
huyichen [专家分:80] 发布于 2005-04-02 14:10:00
做菜鸟要厚道!!!!!作胖子要厚道
3 楼
我爱program [专家分:30] 发布于 2005-04-02 20:37:00
program ex;
var a,b,c,s:integer;
begin
readln(s);
a:=s;
a:=s div 100; b:=(s-100*a) div 10; c:=(s-100*a) mod 10;
s:=100*c+10*b+a;
write(s);
end.
4 楼
sd5774188 [专家分:260] 发布于 2005-04-09 17:40:00
program yb(inpur,output);
var m,a,b,c,x:integer;
begin
read(m);
a:=m mod 10;
b:=(m div 10)mod 10;
c:=m div 100;
x:=100*a+10*b+c;
write(x);
end.
任意输入一个三位数m,这个程序可以使它反向输出
5 楼
xuzhenyi [专家分:850] 发布于 2005-04-11 19:57:00
那我的可以255位 并且随便是什么字符了
6 楼
泡泡糖 [专家分:230] 发布于 2005-05-04 08:25:00
program lt;
var s,st1,st2:string;i:integer;
begin
readln(s);
for i:=1 to length(s) do
begin
st1:=copy(s,i,1);st2:=st1+st2;
end;
writeln(st2);
end.
任意输入一个n位的自然数,可将其反向输出 。(利用字符串)
7 楼
xh2693942 [专家分:0] 发布于 2005-05-04 23:33:00
program xh;
var
n:integer;
begin
writeln('321')
end.
我来回复