jz1577【入门】求S的值

题目描述

求S=1+2+4+7+11+16……的值刚好大于等于5000时S的值。

 

输入

 无

输出

 一行，一个整数。

 

显示数列1，2，4，7，11....a （a<=100） 

 

var
    a,s,k:longint;
begin
    k:=0; a:=1; s:=0;
    while a<100 do
    begin
        writeln(a);
        k:=k+1;
        a:=a+k;
    end;
end.