Pascal
Modified: Wednesday, 22-12-2021 07:00 AM
Tổng các số tự nhiên liên tiếp bằng số N cho trước
var n,m,i,j,k,l:int64;
th:byte;
begin
write('Nhap n: ');readln(n);
i:=1;
th:=0;
while i<=(n div 2) do
begin
m:=i;
j:=i;
k:=0;
while m<n do
begin
inc(k);
inc(j);
m:=m+j;
end;
if m=n then
begin
inc(th);
writeln('Truong hop ',th);
write(i,' ');
l:=1;
while l<=k do
begin
write(i+l,' ');
inc(l);
end;
writeln;
end;
inc(i);
end;
readln;
end.