[新手求教]有道循环语句的题

level 1

驯龙女巫璐- 楼主

我只是初中的学生刚学的pascal [吐舌]

2016年01月06日 14点01分 1

level 11

myetyet

var k,s:longint;
begin
k:=1; s:=1;
while s<=2500 do
begin
k:=k+1;
s:=s+k*k
end;
writeln(k)
end.
未测试

2016年01月06日 14点01分 2

谢谢!

2016年01月06日 14点01分

level 1

陈招燕

刚好有一万金币，表骗我麻花真有那么好心吗

2016年01月08日 11点01分 3

level 2

楼上倒数第二行改成s

2016年02月04日 15点02分 12