不是VIP会员,不能显示答案

题目解答

题目:
Program test_2015_3;
var
sum,i, max: longint;
begin
readln(max);
sum:=0;
for i:=1 to max do
begin
if i mod 2=0 then
sum:=sum+i;
end;
writeln(sum);
end.
输入:200
输出:10100
考点:
分析:
解答:
评论:
老师: