不是VIP会员,不能显示答案

题目解答

题目:
procedure f(a,b,c:integer);
begin
write(a,b,c,'/');
if (a=3)and(b=2)and(c=1) then exit;
if (b<c) then f(a,c,b)
else
if a<b then
if a<c then f(c,a,b) else f(b,c,a);
end;
var a,b,c:integer;
begin
readln(a,b,c);
f(a,b,c);
end.

输入:1 3 2
输出:132/213/231/312/321/
考点: 0
分析:
解答: (全排列)
评论:
老师: 0