Sau nhiều lần thương lượng Bờm đã quyết định bán cho Phú Ông chiếc quạt mo của mình với giá N đồng. Do Bờm không có tiền trả lại nên Phú Ông phải trả đúng N đồng. Trong túi Phú Ông có các tờ tiền mệnh giá 500, 1000, 2000 đồng. Hãy giúp Phú Ông đưa ra các cách trả tiền cho Bờm Yêu cầu: Viết chương trình đưa ra các cách trả tiền, (mỗi cách trên một dòng, nếu không có ghi chữ No). Với N là số nguyên dương nhập từ bàn phím Viết đơn giản thôi nha các bạn ơi mình mới học tới for to do thôi à

1 câu trả lời

Bạn có thể tham khảo code này (N nhập vào phải chia hết cho 1000):

uses crt;

var t1,t2,t3,n,i: integer;

begin

clrscr;

write('Nhap so tien: N='); readln(N);

i:=0;

for t1:= 0 to 10 do

for t2:= 0 to 5 do

for t3:= 0 to 2 do

begin

if N=(t1*1000+t2*2000+t3*5000) then

begin

i:=i+1;

writeln('Phuong an thu ',i,': 1K co ',t1,'; 2K co ',t2,'; 5K co ',t3);

writeln;

end;

end;

readln

end.