不是VIP会员,不能显示答案

题目解答

题目:
type
pointer = ^longint;
var
a, b: longint;
procedure myfun(a: pointer; b: longint);
var
c: longint;
begin
c := a^;
a^ := b;
b:=c;
a^:= b + 1;
b :=a^ -1;
end;
begin
readln(a, b);
myfun(@a, b);
writeln(a,' ', b);
end.
输入:2015 2016
输出:2016 2016
考点:
分析:
解答:
评论:
老师: