Pascal问题:字母替换
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/02 00:19:01
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.