De thi Toan Tin hoc trong nha truong Bai 58

[r]

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 T 2 - Trường PTTH Lê Viết Thuật - Vinh)