作业帮Pascal问题：字母替换
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/11/08 17:39:46
Pascal问题：字母替换
一行字符,若是小写字母,则将a,b,c...y,z,替换 z,y...c,b,a,若不是小写字母则不变
输入说明：一行字符
输出说明：一行字符
输入样例：abc2x
输出样例：zyx2c
这位有两个错误,改好之后给最佳.
一行字符,若是小写字母,则将a,b,c...y,z,替换 z,y...c,b,a,若不是小写字母则不变
输入说明：一行字符
输出说明：一行字符
输入样例：abc2x
输出样例：zyx2c
这位有两个错误,改好之后给最佳.
我帮他改给最佳么- -
var st1:string;
i,j:integer;
begin
read(st1);
i:=length(st1);
for j:=1 to i do
if st1[j] in ['a'..'z'] then
write(chr(ord('z')-ord(st1[j])+ord('a')))
else
write(st1[j]);
end.
var st1:string;
i,j:integer;
begin
read(st1);
i:=length(st1);
for j:=1 to i do
if st1[j] in ['a'..'z'] then
write(chr(ord('z')-ord(st1[j])+ord('a')))
else
write(st1[j]);
end.