turbo pascal

[sagacious]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết chương trình giúp chia n cái bánh(1<n<100) vào m (1<m<n) túi sao cho số bánh trong mỗi túi không bằng nhau và không túi nào rỗng.biết n và m nhập từ bàn phím. Khi nhập vào n và m phải in ra màn hình kết quả cách chia và chia được mấy cachs9vieets càng đơn giản càng nhiều điểm.nhanh nha(đề thi tin hoc tre)

 

[lamnguyen.rs]

Đề đâu mà dễ quá trời

var
        n, m, i: integer;
begin
        readln(n, m);
        if (n < m * (m + 1) div 2) then write('Khong chia duoc') else
        begin
                for i := 1 to m - 1 do write(i, ' ');
                write(n - (m - 1) * m div 2);
        end;
end.

 

[sagacious]

Đề đâu mà dễ quá trời

var
        n, m, i: integer;
begin
        readln(n, m);
        if (n < m * (m + 1) div 2) then write('Khong chia duoc') else
        begin
                for i := 1 to m - 1 do write(i, ' ');
                write(n - (m - 1) * m div 2);
        end;
end.

lam sai roi ban oi .