BÀI 1: PHÂN RÃ SỐ. (5,0 điểm) Khi nghiên cứu về số nguyên, người ta dự đoán rằng: Mỗi số nguyên dương có thể viết thành tổng của nhiều số nguyên dương liên tiếp. Yêu cầu: Viết chương trình nhập vào một số nguyên dương N. Xét xem N có là tổng của nhiều số nguyên dương liên tiếp không?. Tên file bài làm: BAI1.PAS Dữ liệu vào: Số N được nhập từ tệp PR.INP ( N1000 ). Dữ liệu ra: Liệt kê tất cả các trường hợp tìm được, ngược lại thông báo không tồn tại tổng.

uses crt;
var  l,n,j,i,sum:longint;
     t1,t2:text;
     kt:boolean;
     a:array[1..1000] of integer;
procedure nhap;
begin
        read(n); kt:=true;
        if (n<1) or (n>1000) then begin kt:=false; write('-1'); end;
end;
procedure xl;
begin
        kt:=false;
        for i := 1 to N div 2 do
        begin
        sum := 0;
        j := i;
        while sum < N do begin sum:=sum+j; j:=j+1;
        end;
        if sum = N then begin write(t2,N,'=');
        for l := i to (j - 1) do begin write(l); if l+1<>j then write('+');  end; writeln;
        kt := True;
        end;
        end;
        if kt=false then write('Khong ton tai');
end;
begin
doc;
xl;
end.