Đề : chia m móm quà cho n học sinh ( từ 1..N ) học sinh đứng trước phải được chia nhiều hơn
VD m=5 ,n=4 thì một cách hợp lệ là 5 0 0 0 hoặc 4 1 0 0 còn 4 0 1 0 là ko hợp lệ
nhập m,n tìm tổng số cách chia ?
Thuật toán đệ quy rất ngắn ngọn
uses crt;
var n,m:byte;
Function PART(m,n:byte):longint ;
Begin
if ( (m=0)or(n=1) ) then PART:=1
else if(m<n) then PART:=PART(m,m)
else PART:=PART(m,n-1)+PART(m-n,n);
End;
begin
clrscr;
write('Nhap vao so phan thuong m: ');readln(m);
write('Nhap vao so hoc sinh n: ');readln(n);
write('So phuong an chia phan thuong: ',part(m,n));
readln;
end.