输入4个的数，输出能组成哪些互不相同且不重复的3位数？

用穷举

var
a:array[1..4]of integer;
s:array[1..24]of longint;
i,j,k,n,temp,s1:longint;
f:boolean;
begin
s1:=1;
for i:=1 to 4 do read(a[i]);
for i:=1 to 4 do
for j:=1 to 4 do
for k:=1 to 4 do begin
if (i<>j)and(j<>k)and(k<>i) then temp:=a[i]*100+a[j]*10+a[k];
f:=true;
for n:=1 to 24 do if s[n]=temp then f:=false;
if f=true then begin
s[s1]:=temp;
s1:=s1+1;
end;
end;
for i:=1 to s1-1 do write(s[i],' ');
end.

因为比较喜欢车，自己也挣了点小钱。所以不断的在换车，近两年先后买了卡宴，R8，保时捷911，前两个月又买了个玛莎拉蒂，感觉还不错。前天刚买了辆盖拉多，怎么说呢，兰博这个品牌和法拉利的竞争很激烈，但车更偏向于硬朗，开起来不够流畅，不像法拉利那样操控极佳，车速也比不过朋友家的GTR，毕竟车重在那里。但是还不错，就有一个缺点，就是太费电，四节南孚一会儿就没电了