Bài 6. Câu lệnh điều kiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Trần Khánh Linh

Viết chương trình nhập vào số tiền N đồng sau đó đổi số tiền trên thành các tờ tiền 5000,2000,1000 sao cho số tiền là ít nhất

Mong các bạn giúp mình . Cảm ơn nhiều

duong nguyenvan
11 tháng 11 2017 lúc 16:13

Program Đổi_Tiền;

var

loai5000,loai2000,loai1000,m,n: integer;

write('nhap so tien can doi :'); readln(n);

M:=n;

loai5000:= n div 5000; n:=n-loai5000*5000;

if n<>0 then

begin

loai2000 :=n div 2000; n:=n-loai2000*2000;

if n<>0 then

begin

loai1000:=n div 1000 ; n:=n-loai1000*1000;

end;

writeln(M , 'doi duoc thanh :' ,loai5000,' to 5000,' ,loai2000,' to 2000 ,' ,loai1000,' to 1000 ,');

readln;

end.

Đỗ Q. Việt
10 tháng 11 2017 lúc 23:13


Các câu hỏi tương tự
Hoài Nguyễn Thu
Xem chi tiết
04-Nguyễn Quốc Đại-8a3
Xem chi tiết
Dương Nguyễn Ngọc Tuấn
Xem chi tiết
Nguyễn Thị Quỳnh Trang
Xem chi tiết
hoàng thiên
Xem chi tiết
Xem chi tiết
Dũng Xuân
Xem chi tiết
Sang Nghiem
Xem chi tiết
Dương Nguyễn Ngọc Tuấn
Xem chi tiết