字符串替换 [复制链接]

上一主题下一主题查看指定楼层

离线少先队

只看楼主正序阅读 0 发表于: 2006-12-06

字符串替换

输入一段主串Ａ，　将其中的所有的'abc'化为'm'.
例：
输入：abcxabc 输出：mxm
输入：xabcde 输出：xmde

离线少先队

只看该作者 1 发表于: 2006-12-06

var s,q:string;
i:integer;
begin
readln(s);q:='';
for i:=1 to length(s)-2 do
if copy(s,i,i+2)='abc' then q:=q+'m' else q:=q+s;
writeln(q);
end.


	https://bbs.oifans.cn 访问内容超出本站范围，不能确定是否安全


	关闭您还没有登录，快捷通道只有在登录后才能使用。立即登录还没有帐号？赶紧注册一个