请问道数学题！

Question

用while  循环，计算1+3+5+….+  x    问当x等于哪个数时，式子总和才开始大于5000  
 
请问用delphi应该怎么做呢？？？

Answer 1

var
  X, C : integer;
begin
  X := 1;
  C := 0;
  while C < 5000 do
     begin
     C := C + X;
     Inc(X,2);
     end;
  ShowMessage(IntToStr(X));
end;//我刚恢复的C盘，没装Delphi，你自己测试一下吧

Answer 2

var
  X, C : integer;
begin
  X := -1;
  C := 0;
  while C < 5000 do
     begin
     Inc(X, 2);
     C := C + X;
     end;
  ShowMessage(IntToStr(X));
end;//或者应该是这样。。呵，你不嫌麻烦，就试一下

Answer 3

//没运行环境，单靠用一个小点的数测算真是晕啊....你先试一下下面这样吧：
var
  X, C : integer;
begin
  X := -1;
  C := 0;
  while C < 5001 do
     begin
     Inc(X, 2);
     C := C + X;
     end;
  ShowMessage(IntToStr(X));
end;