请各位大神解释一下这个程序
pascal吧
全部回复
仅看楼主
level 2
小宝和姥姥
楼主
var
N:integer;
Function fun(n:integer):integer;
Begin
If n=1 then exit(1);
If n=2 then exit(2);
Exit(fun(n-2)-fun(n-1));
End;
Begin
Readln(n);
Writeln(fun(n));
End.
2017年12月27日 13点12分
1
1
