您所在位置：主题：n! 递归算法的问题
woohaha
[专家分：120] 发布于 2005-03-05 17:40:00
代码如下：
var m:integer;
function f(n:integer):longint;
var a:longint;
begin
if n=1 then f:=1 else f:=n-f(n-1);
end;
begin
readln(m);
writeln(f(m));
end.
我运行后发现结果不对，请问问题出在那里
var m:integer;
function f(n:integer):longint;
var a:longint;
begin
if n=1 then f:=1 else f:=n-f(n-1);
end;
begin
readln(m);
writeln(f(m));
end.
我运行后发现结果不对，请问问题出在那里
