中科新闻网武汉地板批发:如何算 ack
来源：百度文库 编辑：中科新闻网 时间：2024/05/18 02:46:53
program gao7_1;
var
i:integer;
function ack(m,n:integer):integer;
begin
if m=0 then ack:=n+1
else if n=0 then ack:=ack(m-1,1)
else ack:=ack(m-1,ack(m,n-1));
end;
begin writeln(ack(1024,1024)); readln; end.
var
i:integer;
function ack(m,n:integer):integer;
begin
if m=0 then ack:=n+1
else if n=0 then ack:=ack(m-1,1)
else ack:=ack(m-1,ack(m,n-1));
end;
begin writeln(ack(1024,1024)); readln; end.
这是一个计算机算的问题,常人可不想浪费时间在这上面