用递归方法求1+2^2+3^2+4^2+5^2+6^2```````+i^2
1个回答

var n:longint;

function f(t:Longint):longint;

begin

if t=1 then f:=1

else f:=f(t-1)+t*t;

end;

begin

readln(n);

writeln(f(n));

end.

相关问题