各位吧友们问道题
pascal吧
全部回复
仅看楼主
level 3
内啥,我是新手哈,刚入门,有一道题求解
如下:
求1到n之间的偶数和
试题描述
输入一个正整数n,求1到n之间所有偶数的和.
输入要求
一个正整数n
输出要求
一行,表示1到n之间所有偶数的和
输入样例
10
输出样例
30
2013年12月14日 11点12分 1
level 6
var
n:longint;
begin
readln(n);
if n and 1=1 then n:=n-1;
writeln((n+2)*((n-2)>>1+1)>>1);
end.
2013年12月14日 12点12分 2
+1
2013年12月21日 09点12分
不过新手看得懂shl么
2013年12月21日 09点12分
level 11
Orz
2014年07月25日 10点07分 4
1