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 à
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.