任昊 2013-10-28 22:03:00
点我顶贴
收藏
删除
var
s,t,w,k,i,c,j:longint;
f:array['a'..'z'] of boolean;
flag:boolean;
st:string;
begin
readln(s,t,w); readln(st);
while k<5 do
begin
fillchar(f,sizeof(f),false); flag:=false;
for i:=w downto 1 do
begin
f[st[i]]:=true;
for c:=ord(st[i])-95 to t do
if f[chr(c+96)] then continue
else
begin
for j:=i to i+t-c do
st[j]:=chr(c+j-i+96); writeln(st);
inc(k); flag:=true; break;
end;
if flag then break;
end;
end;
end.
#1 ijpoj@2014-09-14 05:30:16
32815
回复
删除
不错········································································································································吧