首页 > 试题广场 >

program j302; var a,b:intege

[填空题]
program j302;
var
  a,b:integer;
  x,y:^integer;
procedure fun(a,b:integer);
var
   k:integer;
begin
    k:=a;
    a:=b;
    b:=k;
end;
begin
    a:=3; b:=6;
    x:=@a; y:=@b;
    fun(x^,y^);
    writeln(a,',',b);
end.
输出:1

这道题你会答吗?花几分钟告诉大家答案吧!