题目描述
求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.
输入
无
一行,一个整数。
显示数列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.
转载于:https://www.cnblogs.com/qilinart/articles/5033884.html