您所在位置：主题：[讨论]这道简单的题我做错了吗？
lierenpascal
[专家分：0] 发布于 2007-07-24 17:51:00
编写程序求出下式中n的最大值：
2*2+4*4+6*6+8*8+……n*n<1500。
对于这道题我是运用循环和条件语句解答的。可是每次结果都显示为0，万分郁闷啊
下面是我的程序：
program thousand;
var
sum,i,n:integer;
begin
sum:=0;
for i:= 2 to n do
if i mod 2 = 0
then
sum:=sum+Sqr(i);
if sum<1500
then
write(n:6);
readln
end.
请大家给我纠正一下错误：
1.纠正错误者+10分。
2.给出新程序者+20分。
2.纠正错误者又给出新程序者+30分。
谢谢~！！
2*2+4*4+6*6+8*8+……n*n<1500。
对于这道题我是运用循环和条件语句解答的。可是每次结果都显示为0，万分郁闷啊
下面是我的程序：
program thousand;
var
sum,i,n:integer;
begin
sum:=0;
for i:= 2 to n do
if i mod 2 = 0
then
sum:=sum+Sqr(i);
if sum<1500
then
write(n:6);
readln
end.
请大家给我纠正一下错误：
1.纠正错误者+10分。
2.给出新程序者+20分。
2.纠正错误者又给出新程序者+30分。
谢谢~！！
