Bài 58/2001 - Tổng số tự nhiên liên tiếp (Dành cho học sinh THCS 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 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 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 bạn Nguyễn Quốc Quân - Lớp 11 T2 - Trường PTTH Lê Viết Thuật - Vinh) DeThiMau.vn