var

n,i:integer;

num:int64;

begin

readln(n);

num:=0;

for i:=1 to n do

num:=num+sqr(i);

writeln(num);

end.

超简单

var i,j,n:longint;

k:qword;

begin

readln(n);

for i:=1 to n do k:=k+i*i;

writeln(k);

end.

var

i,n:longint;

m:extended;

begin

readln(n);

m:=0;

for i:=1 to n do

m:=m+i*i;

writeln(m:0:0);

end.

用这个来做我的第50题,太菜啦!!~

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

var

j:qword;

n,i:longint;

begin

readln(n);

for i:=1to n do

j:=j+i*i;

writeln(j);

end.

program god;

var m,a,b,d:longint;

c:int64;

begin

read(m);

d:=m+1;

c:=0;

for b:=1 to m do

begin

d:=d-1;

c:=d*d+c;

end;

write(c);

end.

var

a:longint;

begin

readln(a);

writeln(a*(a+1)*(2*a+1)div 6);

end.

今天写的数学填空题...

var

i:longint;

a,b:int64;

begin

read(a);

b:=0;

begin

for i:=1 to a do

b:=b+i*i;

end;

write(b);

end.

出题人也是好心促使我们学习框编程序能力...

引用以前TJU的一道题名字:垃圾陷阱@_@

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

告诉你们一个不为人知的秘密，不需要用double或extended,直接用real也可以AC。错了随便喷我。^_^

不能用long long int,最好用double.

ans=1^2+2^2+………………+N^2.

程序编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

program p1307;

var a:int64;

i,n:integer;

begin

readln(n);

for i:=1 to n do

a:=a+i*i;

writeln(a);

end.

超级简单

程序编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

用double取整或long long

很简单的一个公式：

S=1^2+2^2+3^2+……+n^2 (S开成int64比较保险)

我就是用这个 AC 的

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

Var

n : Int64;

Begin

Readln(n);

Writeln(n*(n+1)*(2*n+1) div 6);

End.

忽然发现做这种题好爽。

我是推的。。。能算DP了吧……

var

m:int64;

begin

readln(m);

m:=m*(m+1)*(2*m+1) div 2;

writeln(m);

end.

M*(M+1)*(2*M+1)div 6