Giải giúp mình với

[1clickloginsite]

Viết một chương trình nhập vào số tiền của bạn và in ra tất cả các cách chia thành các tờ 5 ngàn, 2 ngàn và 1 ngàn
P/s: Cái đề này em ghi theo cách hiểu sau khi nghe lỏm được cái đề từ thằng bạn chớ em không nhớ kĩ lắm... Có chỗ nào sai sót thì mọi người góp ý nhé !

[nham.905]

Thế thím muốn được viết bằng ngôn ngữ gì ?

[degeawapsh]

e viết = pascal ) chú ý là bác muốn nhập 5 ngàn thì nhập 5 thôi, ko phải 5000

//begin of code
var n, i, j, k: longint;

begin
readln(n); //doc so tien
for i:=0 to (n div 5) do begin
for j:=0 to (n div 2) do begin
for k:=0 to (n div 1) do begin
if 5*i + 2*j + 1*k=n then begin
writeln(']------------------------[');
writeln(i, ' to 5 ngan');
writeln(j, ' to 2 ngan');
writeln(k, ' to 1 ngan');
writeln(']------------------------[');
end;
end;
end;
end;
readln;
end.
//end of code

[dcckiem]

Viết một chương trình nhập vào số tiền của bạn và in ra tất cả các cách chia thành các tờ 5 ngàn, 2 ngàn và 1 ngàn
P/s: Cái đề này em ghi theo cách hiểu sau khi nghe lỏm được cái đề từ thằng bạn chớ em không nhớ kĩ lắm... Có chỗ nào sai sót thì mọi người góp ý nhé !

Cái này chỉ là thuật toán thôi mà
Bạn tính lần lượt: ban đầu tính bao nhiều tờ 5k
sau đó tính tiếp bao nhiêu số 2k, và 1k

ngôn ngữ pascal thì quá dễ viết rồi