对于定值m,求满足1+2+3+……+n

来源：学生作业学帮网 编辑：学帮网 时间：2024/05/30 05:33:31

对于定值m,求满足1+2+3+……+n

var
s,m,i:integer;
begin
readln(m);
i:=0;
s:=0;
while s