编写程序求出下式中n的最大值 2*2+4*4+6*6+''''''''''+n*n<1500

来源：百度知道 编辑：UC知道 时间：2024/06/08 20:11:30
我要PASCAL语言的

var a,s:integer;
begin
a:=0;s:=0;
repeat
a:=a+2;s:=s+a*a;
until s>=1500;
writeln(a-2); readln;
end.

var
a,s:integer;
begin
s:=0;a:=0;
while s<1500 do begin
a:=a+2;s:=a*a+s;
end;
write(a-2);
end.

当循环次数不确定时，可以用While语句或Repeat语句来做。

定义两个数值变量 a b
循环
b=b+2
a=b*b+a
当a>=1500 结束
输出b=b-2

就这样 具体什么语言你自己改吧

var n,s:longint;
begin
n:=2;
repeat
s:=n*n; n:=n+2;
until s>=1500;
writeln(n-1); readln;
end.

var
a,s:integer;
begin
s:=0;a:=0;
while s<1500 do begin
a:=a+2;s:=a*a+s;
end;
write(a-2);
end.

Java程序

public static void main(String[]args)
{int i=2;
int sum=0;
while(sum<1500)
{
sum=sum+i*i;
i=i+2;
}
system.out.println(i-2);
}