Có các loại giấy bạc 50, 20, 5, 2, 1 ngàn. Em hãy viết chương trình nhập vào số tiền từ bàn phím tính bằng ngàn và xuất ra màn hình số tờ giấy bạc các loại sao cho tổng số tờ ít nhất.
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Có 9 tờ bạc 10 ngàn.
Có 11 tờ bạc 5 ngàn.
Hok tốt nhóa!
giả sử số tờ 10 ngàn đồng bằng số tờ 5 ngàn đồng thì hiệu là
10 * 10- 5 * 10 = 50 ngàn đồng
so với thực tế thì nhiều hơn là
50 - 35 = 15
mỗi tờ 5 ngàn ít hơn mỗi tờ 10 ngàn là
10 - 5 = 5
số tờ 10 ngàn là
15 : 5 = 3 tờ
số tờ 5 ngàn là
20 - 3 = 17 tờ
Đ/S :
2 to 500 dong
1 to 1000 dong
3 to 2000 dong
vay tong so to giay bac la
2 + 1 + 3 = 6 to
ds : 6 to
3 tờ 2 ngàn nhiều hơn có giá trị là:
2000 x 3 = 6000 (đồng)
Số tờ còn lại có giá trị là:
97 -6 = 91 000 (đồng)
Tổng số phần bằng nhau là:
5+2 = 7 (phần)
Số tờ của mỗi loại là: 91 :7 = 13 tờ
Vì bạn chỉ yêu cậu tính số tờ bạc mỗi loại nên mình tính tới đây thôi
Nếu số tờ của cả 2 loại tiền đều = nhau, khi đó số tờ 2000 sẽ giảm đi 3 tờ và tổng số tiền còn:
97000-(3x2000)=91000
Tỉ số giữa 2 loại tiền 2000 và 5000 là:
2000 : 5000 = 2/5
Số tiền loại 5000 là:
91000 : (2+5) x 5= 65000
Số tờ 5000 có:
65000 : 5000= 13 (tờ)
Số từ 2000 có:
13+3= 16 (tờ )
ĐS: _______
Var n:integer;
Begin
Write (' nhap so tien : ');
Readln(n);
Write ( n div 50,' to 50n ');
n:=n mod 50;
Write ( n div 20,' to 20n ');
n:=n mod 20;
Write ( n div 5,' to 5n ');
n:=n mod 5;
Write ( n div 2,' to 2n ');
n:=n mod 2;
Write ( n div 1,' to 1n ');
n:=n mod 1;
Readln;
end.