Pascal问题:字母替换
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/18 23:53:35
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
这位有两个错误,改好之后给最佳.
![Pascal问题:字母替换](/uploads/image/z/20192812-52-2.jpg?t=Pascal%E9%97%AE%E9%A2%98%EF%BC%9A%E5%AD%97%E6%AF%8D%E6%9B%BF%E6%8D%A2)
我帮他改给最佳么- -
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.