这是我用来枚举的代码 var a:array[1..16] of char; i,j,k:longint; procedure init; begin assign(input,'kaisa.in'); reset(input); assign(output,'kaisa.out'); rewrite(output); for i:=1 to 16 do read(a[i]); end; begin init; for i:=0 to 25 do begin for j:=1 to 16 do begin k:=ord(a[j])+i; if k>122 then k:=96+k-122; write(chr(k)); if (j mod 4)=0 then writeln; end; writeln; end; close(input); close(output); end.