题解：Pascal堆金字塔

堆金字塔

时间限制: 1 Sec  内存限制: 128 MB

题目描述

Yemaster有n块立方体，想堆金字塔，这个金字塔第一层需要1块，第二层需要1+2块，第三层要1+2+3块…… 问BSNY最多可以堆几层？

 

 

输入

输入n 

 

输出

输出最多可以堆几层

 

样例输入

25

样例输出

4

提示

 

100%的数据 1<= n <= 10^4

 

 

 

来源

cf492A

参考题解

var

  n,s,i:longint;

begin

  {此代码为Yemaster所有}

  read(n);

  {此代码为Yemaster所有}

  while n>0 do

  begin

    i:=i+1;

    s:=(i+1)*i div 2;

    n:=n-s;

  {此代码为Yemaster所有}

    if n=0 then

    begin

      writeln(i);

      halt;

    end;

  end;

  writeln(i-1);

end.

  {此代码为Yemaster所有}

转载于:https://my.oschina.net/u/3233411/blog/828624