level 1
你好，我有题目不会，问你一下？pascal的
输入正整数你，求s=1*2+2*3
+3
*4+···n*(n+1)的值
输入3 输出14
用循环
O(∩_∩)O谢谢
2016年07月27日 05点07分
1
level 4
program Project1;
var
x,i,sum:longint;
function f(n:longint):longint;
begin
f:=n*(n+1);
end;
begin
readln(x);
sum:=0;
for i:=1 to x do
sum:=sum+f(i);
writeln(sum);
end.
2016年07月27日 06点07分
4
