题目描述
在输入的字符串中，用连续递增的字母获数字串替代其中的减号。
(1)出现了减号“-”，减号两侧同为小写字母或数字，且按照ASCII码的顺序，减号右边的字符大于左边的字符。
(2) p1=1时，填充小写字母；p1=2时，填充大写字母。p1=3时，填充的字母个数相同的星号“*”。
(3) p2=k表示同一个字符要连续填充k个。
(4) p3=1表示维持原来顺序，p3=2表示采用逆序输出。
(5) 如果减号右边的字符恰好是左边字符的后继，只删除中间的减号。如果减号右边的字符按照ASCII码的顺序小于或等于左边字符，输出时，要保留中间的减号。
样例输入
1 2 1
abcs-w1234-9s-4zz
样例输出
abcsttuuvvw1234556677889s-4zz
思路
O(n)
模拟，判断每种情况，按题意模拟。
vara,b,c:longint;s:string;
procedure main(p:longint);
vari,j:longint;
beginif s[p+1]<=s[p-1] then write('-')elseif c=1 thenfor i:=(ord(s[p-1])+1) to (ord(s[p+1])-1) dofor j:=1 to b doif a=3 then write('*')elseif (s[p-1]>='a')and(s[p-1]<='z')and(a=2) thenwrite(upcase(chr(i)))elsewrite(chr(i))elsefor i:=(ord(s[p+1])-1) downto (ord(s[p-1])+1) dofor j:=1 to b doif a=3 then write('*')elseif (s[p-1]>='a')and(s[p-1]<='z')and(a=2) thenwrite(upcase(chr(i)))elsewrite(chr(i));
end;
vari:longint;
beginreadln(a,b,c);readln(s);write(s[1]);for i:=2 to length(s)-1 doif s[i]<>'-' then write(s[i])elseif ((s[i-1]>='0')and(s[i-1]<='9')and(s[i+1]>='0')and(s[i+1]<='9'))or((s[i-1]>='a')and(s[i-1]<='z')and(s[i+1]<='a')and(s[i+1]>='z')) then main(i)elsewrite(s[i]);writeln(s[length(s)]);
end.