请解答此题,要详细步骤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)是

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 07:46:16
请解答此题,要详细步骤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)是
请解答此题,要详细步骤
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