你能说出过程吗？
pascal吧
全部回复
仅看楼主
level 3
姙滛
楼主
var n:integer;
function f(n:integer):longint;
begin
if n=0 then f:=1
else if n<0 then f:=f(n+1)-n
else f:=f(n-1)-n
end;
begin
readln(n);
writeln(f(f(n)));
readln;
end.
2014年08月19日 04点08分
1
1
