Tin học - Bài 58: Tổng các số tự nhiên liên tiếp

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)