Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (67.57 KB, 1 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b>Bài 58/2001 - Tổng các số tự nhiên liên tiếp </b>
(Dành cho học sinh THCS và PTTH)
<b>Program bai58;</b>
<b>Uses crt;</b>
<b>var N:longint;</b>
m,i,dem,a,limit:longint;
<b>procedure Solve;</b>
<b>begin</b>
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;
writeln;
end;
<b>end;</b>
<b>BEGIN</b>
clrscr;
writeln('Nhap N: ');readln(N);
Solve;
if dem=0 then writeln('Khong the chia!')
else writeln('Co tat ca', dem,' cach chia!');
readln;
<b>END.</b>