https://www.runoob.com/cprogramming/c-100-examples.html
题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？
程序分析：可填在百位、十位、个位的数字都是1、2、3、4。组成所有的排列后再去 掉不满足条件的排列。
实例
include<stdio.h>
int main()
{
int i,j,k;
printf("\n");
for(i=1;i<5;i++) { // 以下为三重循环
for(j=1;j<5;j++) {
for (k=1;k<5;k++) { // 确保i、j、k三位互不相同
if (i!=k&&i!=j&&j!=k) {
printf("%d,%d,%d\n",i,j,k);
}
}
}
}
}
以上实例输出结果为：
1,2,3
1,2,4
1,3,2
1,3,4
1,4,2
1,4,3
2,1,3
2,1,4
2,3,1
2,3,4
2,4,1
2,4,3
3,1,2
3,1,4
3,2,1
3,2,4
3,4,1
3,4,2
4,1,2
4,1,3
4,2,1
4,2,3
4,3,1
4,3,2
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
memo1.Clear;
for a := 1 to 4 do
for b := 1 to 4 do
for c := 1 to 4 do
begin
if (a<>b) and (b<>c) and (a<>c) then
// if a<>b and b<>c and a<>c then 写成这样无法运行，所以上面要加上括号
{
if (a<>b) then
if (b<>c) then
if (a<>c) then
}
{
if a<>b then
if b<>c then
if a<>c then
}
memo1.Lines.append(inttostr(a)+inttostr(b)+inttostr(c));
end;
end;
end.
