查人人中国名人网整型数 浮点数:如何算 ack
来源：百度文库 编辑：查人人中国名人网 时间：2024/10/02 18:06:49
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.
这是一个计算机算的问题,常人可不想浪费时间在这上面