程序TForm1。Button1Click(發件人:to object)；
定義變量
a，I，m，n，k:整數；
s:字符串；//聲明變量
開始
n:=strtoint(edit1。正文)；
k:=strtoint(edit2。正文)；//輸入n和k，但是沒有有效的n (1
k:= k-1；
如果k=0，則//如果是0，則輸出0並退出進程。
開始
memo1。lines . Add(' 0 ')；
退出；
結束；//以下是算法實現部分。
s:=“”；//要輸出的字符串
對於i:=1到n do//按照排序規則獲取字符串。
開始
m:= 1；
如果k=0，則斷開；
對於a:=1到n-i做m:= m * 2；
如果k & lt那麽=m
開始
s:= s+inttostr(I)+“”；
k:= k-1；
結束
其他
開始
k:= k-m；
結束；
結束；
memo1。行。添加；//輸出字符串
結束；
哈哈哈，下面是帕斯卡。
var a，I，m，n，k:整數；
s，c:字符串；
開始
readln(n)；
readln(k)；
k:= k-1；
如果k=0，那麽
開始
書寫內容；
退出；
結束；
s:=“”；
對於i:=1到n do
開始
m:= 1；
如果k=0，則斷開；
對於a:=1到n-i做m:= m * 2；
如果k & lt那麽=m
開始
str(i，c)；
s:= s+c+“”；
k:= k-1；
結束
其他
開始
k:= k-m；
結束；
結束；
書寫內容；
結束。