txtkeqm 2009-03-06 02:20:00
点我顶贴
收藏
删除
Program Jam；
var a,b:array[1..26] of char；
i,j,s,t,w,l,x,y,z,p:integer；
v:string；
Procedure work；
begin
for j:=l downto 1 do
if b[j]>=chr(t-w+z+96)
then z:=z-1
else begin
if x>=w then exit；
b[j]:=chr(ord(b[j])+1)；
for y:=j+1 to l do begin b[y]:=chr(ord(b[y-1])+1)； end；
for y:=1 to l do write(b[y])；
writeln；
x:=x+1； z:=w； work；
end；
end；
begin
readln(s,t,w)；
readln(v)；
for i:=s to t do
a[i]:=chr(i+ord(’a’))；
l:=length(v)；
for i:=1 to l do
b[i]:=v[i]；
x:=0；
z:=w；
work；
end.
谁帮我看一下,为什么90分,最后一组数据不过