#1 thl@2012-03-07 23:32:00
25208
回复
删除
我发个程序······
var
s:string;
i,j,k,w,max,min:longint;
begin
readln(min,max,w);
readln(s);
for i:=1 to 5 do
for j:=w downto 1 do
if ord(s[j])-96<max+j-w then begin
s[j]:=chr(ord(s[j])+1);
for k:=j+1 to w do
s[k]:=chr(ord(s[k-1])+1);
writeln(s);
break;
end;
end.