Đề thi Toán - Tin học trong nhà trường (Bài 58)

Bài 58/2001 - Tổng các số tự nhiên liên tiếp
(Dành cho học sinh THCS và PTTH)
Program bai58;
Uses crt;
var N:longint;
m,i,dem,a,limit:longint;
procedure Solve;
begin
Writeln(`Chia so `,N,`:`);
limit:=trunc(sqrt(1+8*N)+1) div 2;
for m:=2 to limit-1 do
if ((N-m*(m-1) div 2) mod m =0) then
begin
a:=(N-m*(m-1) div 2) div m;
inc(dem);
writeln(`+ Cach thu `,dem,` :`);
for i:=a to a+m-1 do
begin
write(` `,i);
if (i-a+1) mod 10=0 then writeln;
end;
writeln;
end;
end;
BEGIN
clrscr;
writeln(`Nhap N: `);readln(N);
Solve;
if dem=0 then writeln(`Khong the chia!`)
else writeln(`Co tat ca`, dem,` cach chia!`);
readln;
END.
(Lời giải của bạn Nguyễn Quốc Quân - Lớp 11 T2 - Trường PTTH Lê Viết Thuật - Vinh)