K kmzbh Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-27 #1 “12345”五个数。（1）用算法实现下如下数字：123，124，125，134，135，145，234，235，245，345；（2）列出这五个数可以组成的任意三位数，包括[1]中的数字，还有213、312、435等等， 急等，帮帮小弟了！
“12345”五个数。（1）用算法实现下如下数字：123，124，125，134，135，145，234，235，245，345；（2）列出这五个数可以组成的任意三位数，包括[1]中的数字，还有213、312、435等等， 急等，帮帮小弟了！
K kmzbh Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-27 #2 “12345”五个数。（1）用算法实现下如下数字：123，124，125，134，135，145，234，235，245，345；（2）列出这五个数可以组成的任意三位数，包括[1]中的数字，还有213、312、435等等， 急等，帮帮小弟了！
“12345”五个数。（1）用算法实现下如下数字：123，124，125，134，135，145，234，235，245，345；（2）列出这五个数可以组成的任意三位数，包括[1]中的数字，还有213、312、435等等， 急等，帮帮小弟了！
X xianguo Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-27 #3 http://www.delphibbs.com/keylife/iblog_show.asp?xid=13549
S snavy Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-27 #4 a:='12345' b:='12345' c:='12345' for i:=1 to 5do begin for j:=i to 5do begin for k:=j to 5do begin d:=copy(a,i,1)+copy(b,j,1)+copy(c,k,1) end; end; end; 未写完，得到d以后再排列一下，每一个值又可排出2种来。
a:='12345' b:='12345' c:='12345' for i:=1 to 5do begin for j:=i to 5do begin for k:=j to 5do begin d:=copy(a,i,1)+copy(b,j,1)+copy(c,k,1) end; end; end; 未写完，得到d以后再排列一下，每一个值又可排出2种来。
