作业帮请解答此题,要详细步骤
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/21 08:10:56
请解答此题,要详细步骤
procedure foo(a,b,c:integer);
begin
if a>b then foo(c,a,b)
else
writeln(a,',',b,',',c)
end;
var a,b,c:integer;
begin
readln(a,b,c);
foo(a,b,c);
end.
输入：2 1 3
输出：
谢谢楼上的,再foo(a,b,c)和foo(c,a,b)是什么意思?请回答.
procedure foo(a,b,c:integer);
begin
if a>b then foo(c,a,b)
else
writeln(a,',',b,',',c)
end;
var a,b,c:integer;
begin
readln(a,b,c);
foo(a,b,c);
end.
输入：2 1 3
输出：
谢谢楼上的,再foo(a,b,c)和foo(c,a,b)是什么意思?请回答.
输入 2 1 3 -----a>b,-----foo（3,1,2）------还是a大于b,----foo（2,3,1）---这回a