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

题目解答

题目:
Program ex3;
Var s,n:integer;
funtion pp(n:integer):integer;
Begin
If n=1 then pp:=1
Else pp:=n*n+pp(n-1);
End;
Begin
Readln(n);
S:=pp(n);
Writeln(‘s=’,s);
End.
输入:10

输出:s=385
考点:
分析:
解答:
评论:
老师: