首页 > 试题广场 >

program s402; var a, b : int

[填空题]
program s402;
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^);
  write('No.1:', a, ',', b, '    ');
  fun(a, b);
  writeln('No.2:', a, ',', b);
end.
输出: 1

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