Tin học Thuật toán

[ducthanhbwfitf@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

nếu ta cần nhân 1 số tiền là x đồng từ các loại tiền mệnh giá là 100000, 50000, 20000, 10000, 5000, 2000 1000 thì nên chọn các loại mệnh giá nào để số tờ giấy bạc là ít nhất, viết thuật toán

 

[Dưa Chuột]

Hình như có viết Input, Output thì phải

 

[Ray Kevin]

var a,b:array[1..100000] of longint;
x,k:longint;
begin
readln(x);
a[1]:=100000;
a[2]:=50000;
a[3]:=20000;
a[4]:=10000;
a[5]:=5000;
a[6]:=2000;
a[7]:=1000;
for k:=1 to 7 do b:=0;
k:=1;
while x > 0 do
if x >= a[k] then
begin
b[k] := x div a[k];
x:=x mod a[k];
inc(i);
end else inc(i);
for i:=1 to 7 do
writeln('So to tien menh gia ', a[k] ,' dong la: ',b[k] );
readln;
end.