题解 - Vijos

0
飛花如月 LV 8 @ 2009-09-13 00:22:14

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

include

using namespace std;

double n,ans;

int main()

{

cin>>n;

ans=0;

for(double i=1;i
0
bi1_1 LV 9 @ 2009-08-28 19:29:52

从来都不做公式题，悲剧了第100题是COPY的
0
lixijuntc955 LV 8 @ 2009-08-22 11:49:17

农夫山泉有点甜啊

#include

double cf(double a)

{

return a*a;

}

main()

{

double n,i;

double sum=0;

scanf ("%lf",&n);

for (i=1;i
0
szy_1996725 LV 8 @ 2009-08-21 10:36:59

var n,i:integer;

s:int64;

begin

readln(n);

for i:=1 to n do

s:=s+(n-i+1)*(n-i+1);

writeln(s);

end.
0
totototo LV 9 @ 2009-08-19 22:00:56

H20
0
lixiaomu LV 8 @ 2009-08-16 20:57:36

农夫山泉
0
影林飞雪 LV 6 @ 2009-08-16 10:28:39

var

a:int64;

n,d:longint;

begin

read(n);

if n
0
wangshan0908 LV 10 @ 2009-08-12 17:32:22

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

两次ac
0
brace_123 LV 9 @ 2009-08-10 22:38:29

巨水

数学题
0
gsrq LV 10 @ 2009-08-04 10:41:04

var

rs:int64;

n,k:integer;

begin

read(n);

if n
0
LP.Fighting LV 10 @ 2009-07-31 22:15:10
- - 囧死...我的语文...
0
junfpc LV 8 @ 2009-07-27 16:40:49

一次AC

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var rs:int64;

n,k:integer;

begin

read(n);

if n
0
howlet111 LV 9 @ 2009-07-25 22:32:58

郁闷。。。。。。

这种水题居然叫了3次才AC～

顺便说句：long long才是王道～～～！！！

（int 根本过不了～——||）
0
lywqian LV 7 @ 2009-07-25 15:26:29

哈哈~~~~~~~~~~~~

我果然没救了

写了N题。。不看题解就写不出
0
Xu Taotao LV 9 @ 2009-07-23 15:40:22

program das;

var n,i:integer;

s:int64;

begin

read(n);

s:=0;

for i:=1 to n do s:=s+sqr(i);

write(s);

end.

没什么好说的

农夫山泉
0
zhangjie LV 8 @ 2009-07-15 15:54:10

var i,n:longint;

ans:int64;

begin

readln(n);

ans:=0;

for i:=1 to n do

ans:=ans+i*i;

writeln(ans);

end.
0
阿泰 LV 7 @ 2009-07-15 09:49:13

program heipidezhengfangxing;

var n:qword;

begin

read(n);

write((n*(n+1)*(2*n+1))/6:0:0);

end.

秒杀，绝对正确，保证满分
0
lydliyudong LV 8 @ 2009-07-12 17:56:12

谁见过如此water的题啊
0
rakerichard LV 8 @ 2009-06-24 21:01:58

double可以过完。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

#include

int main()

{

double ans=0,n,i;

scanf("%lf",&n);

for(i=n;i>=1;i--) ans+=i*i;

printf("%.0lf\n",ans);

return 0;

}
0
dreamy LV 10 @ 2009-06-22 21:29:57

貌似有一个可以不直接开int64的办法：

var n:integer;

begin

read(n);

write(trunc(int64(n)*int64((n+1))*int64((2*n+1))/6));

end.

但是就内存来说，它未必就有优势！！