不是VIP会员，不能显示答案

题目解答

题目：
Program test_2013_5;
Var x,s:integer;
Function d(x:integer):integer;
Begin If x:=1 then d:=1
Else d:=d(x-2)+x;
End;
Begin
x:=9; s:=d(x);
writeln(s);
End.
输出：25
考点：
分析：
解答：
评论：
老师：