Question

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.

Answer 1

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.