Pascal题目，不懂，求解答

level 6

Betelgeuse0323 楼主

描述 Description
输入一个数n（1<=n<=1000)，求1-n之间的偶数的和。
输入格式 Input Format
输入一个数n。
输出格式 Output Format
输出1-n之间的偶数和s。
样例输入 Sample Input
100
样例输出 Sample Output
2550
一定要Pascal语言的！！！！！

2015年05月28日 11点05分 1

level 6

gt2k01-

var n:longint;
begin
readln(n);
if n mod 2=0 then writeln(n*(n+2)/4)
else writeln((sqr(n)-1)/4);
end.

2015年05月28日 11点05分 2

level 6

Betelgeuse0323 楼主

var
n:longint;
s:real;
begin
readln(n);
if n mod 2=0 then
begin
s:=n*(n+2)/4;
writeln(s:0:0);
end
else
begin
s:=(2+(n-1))*((n-1)/2)/2;
writeln(s:0:0);
end;
end.
耶！最后还是自己做出来了。不过谢谢2楼，给了我参考~

2015年05月30日 08点05分 4