作业帮 > 综合 > 作业

pascal 连续若干个正整数之和为1000,求有多少种这样的数列.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/26 08:48:02
pascal 连续若干个正整数之和为1000,求有多少种这样的数列.
const m=1000;
var tt,i,answer:integer;b:boolean;
procedure find(x:integer);
begin
inc(tt,x);//tt:=tt+x;
if (tt>m)or(b=false)then
begin
b:=false;exit;
end;
if tt