Viết Chương Trình đổi Tờ Giấy Bạc Mệnh Giá Nnghìn đồng Ra Các Loại ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

NguyenThiAnhThu
Chưa có nhóm

Trả lời
29
Điểm
1088
Cảm ơn
14

Tin Học
Lớp 8
20 điểm
NguyenThiAnhThu - 09:05:36 10/12/2019

Viết chương trình đổi tờ giấy bạc mệnh giá nnghìn đồng ra các loại 500, 200, 100 nghìn đồng sao cho số tờ giấy bạc là ít nhất (với n nhập từ bàn phím). Cô mk gợi ý thông báo Var loai500,loai200,loai100,n,m : integer Mn giúp mk với mai kiểm tra ời !!!!!!!!!

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

NguyenThiAnhThu rất mong câu trả lời từ bạn. Viết trả lời

TRẢ LỜI

keyy
Annihilators

Trả lời
1742
Điểm
28058
Cảm ơn
1313

keyy

10/12/2019

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

Program BTT;Uses crt;Var loai500,loai200,loai100,n,m: integer;Begin Clrscr; Write('Nhap so tien can doi: '); Readln(n); If n div 500 <> 0 then Begin loai500:=n div 500; n:=n - loai500*500; End; If n div 200 <> 0 then Begin loai200:= n div 200; n:=n - loai200*200; End; If n div 100 <> 0 then Begin loai100:=n div 100; n:=n - loai100*100; End; m:=loai500+loai200+loai100; Writeln('Doi duoc it nhat ',m,' to tien'); If loai500 <> 0 then Writeln(loai500,' to 500'); If loai200 <> 0 then Writeln(loai200,' to 200'); If loai100 <> 0 then Writeln(loai100,' to 100'); If (n<100) and (n<>0) then Write('Con ',n,' nghin khong doi duoc'); ReadlnEnd.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy

Cảm ơn 1

- NguyenThiAnhThu
- Chưa có nhóm
- Trả lời
  29
- Điểm
  1088
- Cảm ơn
  14
cảm ơn cậu nha
- NguyenThiAnhThu
- Chưa có nhóm
- Trả lời
  29
- Điểm
  1088
- Cảm ơn
  14
cảm ơn ạ !!!!
- keyy
- Annihilators
- Trả lời
  1742
- Điểm
  28058
- Cảm ơn
  1313
Không có gì ^^