作业帮 > 综合 > 作业

用PASCAL怎么编 若干个连续整数之和是2003,试写出这些整数

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/08 12:39:04
用PASCAL怎么编 若干个连续整数之和是2003,试写出这些整数
用PASCAL怎么编 若干个连续整数之和是2003,试写出这些整数
var i,j,k,s:integer;
begin
for i:=1 to 1004 do
begin
s:=0;
j:=i;
repeat
s:=s+j;
j:=j+1;
until s>=2003;
if s=2003 then
begin
for k:=i to j do
write(k,' ');
writeln;
end;
end;
end.