Lập chương trình thực hiện yêu cầu sau: Anh Việt đi chợ mua một mặt hàng có giá trị là N đồng. Trong túi anh Việt có nhiều tờ tiền với mệnh giá là 100 đồng, 200 đồng và 1000 đồng. Anh Việt có thể có nhiều cách trả tiền để mua mặt hàng đó (anh Việt chỉ dùng các tờ tiền mà anh có sẵn. Anh không đưa thừa tiền cho người bán vì người bán không có tiền trả lại). Yêu cầu: nhập vào từ bàn phím số N (N nguyên và 2 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Lập chương trình thực hiện yêu cầu sau: Anh Việt đi chợ mua một mặt hàng có giá trị là N đồng. Trong túi anh Việt có nhiều tờ tiền với mệnh giá là 100", "text": "Lập chương trình thực hiện yêu cầu sau: Anh Việt đi chợ mua một mặt hàng có giá trị là N đồng. Trong túi anh Việt có nhiều tờ tiền với mệnh giá là 100 đồng, 200 đồng và 1000 đồng. Anh Việt có thể có nhiều cách trả tiền để mua mặt hàng đó (anh Việt chỉ dùng các tờ tiền mà anh có sẵn. Anh không đưa thừa tiền cho người bán vì người bán không có tiền trả lại). Yêu cầu: nhập vào từ bàn phím số N (N nguyên và 2
Program SoTien;
Uses Crt;
Var i, j, x, y, z; longint;
Begin
clrscr;
Write(‘Nhap so tien: ‘); Readln(i);
j:=0;
If i mod 100=0 Then
For x:=0 to i div 1000 do
For y:=0 to (i-1000*x) div 200 do
Begin z:=(i-1000*x-200*y) div 100;
Writeln(z,’ x 100 +’,y,’ x 200 + ‘,x,’ x 1000′);
End;
readln;
End.
var n,a,b,c,d:longint;
begin
write(‘nhap n ‘ );readln(n);
d:=0;
for a:=0 to n div 100 do
for b:=0 to n div 100 do
for c:=0 to n div 100 do
if a*100+b*200+c*1000 =n then
begin
writeln(a,’ ‘,b,’ ‘,c);
inc(d);
end;
if d<>0 then write(d);
readln
end.