请解答此题,要详细步骤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/12/23 03:38:44
请解答此题,要详细步骤procedurefoo(a,b,c:integer);beginifa>bthenfoo(c,a,b)elsewriteln(a,'','',b,'','',c)end;vara,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