Chào mừng quý vị đến với website của Phạm Văn Phúc - Tuy Hòa- Phú Yên
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành
viên, vì vậy chưa thể tải được các tài liệu của
Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
đổi tiền
- 0 / 0
-
Nguồn:
Người gửi: Phạm Văn Phúc (trang riêng)
Ngày gửi: 06h:21' 06-02-2015
Dung lượng: 20.0 KB
Số lượt tải: 35
Người gửi: Phạm Văn Phúc (trang riêng)
Ngày gửi: 06h:21' 06-02-2015
Dung lượng: 20.0 KB
Số lượt tải: 35
Số lượt thích:
0 người
Có số tiền là N tìm cách đổi sao cho số tờ đưa ra là ít nhất
Ý tưởng: phải đổi tiền lớn nhất trước sau đó đổi các loại tiền nhỏ sau
program doitien;{ so to la it nhat}
uses crt;
const loaitien:array[1..6] of word=(5000,2000,1000,500,200,100);
var N ,i,soto:longint;
begin
clrscr;
write(`nhap so tien dang tron tram`); readln(t);
i:=1;
repeat
soto:=N div loaitien [i];
N :=N -soto*loaitien[i];
if soto>0 then write(soto, `to `,loaitien[i]);
inc(i);
until N =0;
readln;
end.
Ý tưởng: phải đổi tiền lớn nhất trước sau đó đổi các loại tiền nhỏ sau
program doitien;{ so to la it nhat}
uses crt;
const loaitien:array[1..6] of word=(5000,2000,1000,500,200,100);
var N ,i,soto:longint;
begin
clrscr;
write(`nhap so tien dang tron tram`); readln(t);
i:=1;
repeat
soto:=N div loaitien [i];
N :=N -soto*loaitien[i];
if soto>0 then write(soto, `to `,loaitien[i]);
inc(i);
until N =0;
readln;
end.