YOMEDIA
NONE

Có các loại giấy bạc 50 20 5 2 và 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?

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.

Theo dõi Vi phạm
ADSENSE

Trả lời (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.

      bởi Triệu Quang Mạnh Triệu 07/11/2018
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

 

YOMEDIA
AANETWORK
OFF