trong túi của mẹ an có 1 số tờ tiền mệnh giá 500k,200k,50k,20k,10k .một hôm bạn An được mẹ dẫn đi mua sắm với chi phí dự tính là T. vốn rất thông minh và nhanh nhạy,bạn An suy nghĩ rằng phải tính toán để chỉ mang vừa đủ số tiền với số lượng tờ tiền ít nhất nhằm hạn chế khả năng có thể bị giật mất giỏ khi di chuyển trên đường ,em hãy viết chương trình giúp bạn An tính số lượng tiền ít nhất à mẹ bạn An có thể mang theo. dữ liệu vào :tệp văn bản TINHTIEN.INP chứa 1 số nguyên T. dữ liệu ra : tệp văn bản TINHTIEN.OUT chứa số lượng tờ tiền ít nhất dùng ngôn ngữ Free pascal làm nhanh giúp em với ạ

program TinhTien;

var T, count: integer;

begin

assign(input, 'TINHTIEN.INP');

assign(output, 'TINHTIEN.OUT');

reset(input);

rewrite(output);

readln(T);

count := 0;

if T >= 500000 then begin

count := count + T div 500000; T := T mod 500000;

end;

if T >= 200000 then begin count := count + T div 200000;

T := T mod 200000;

end;

if T >= 50000 then begin count := count + T div 50000;

T := T mod 50000;

end;

if T >= 20000 then begin

count := count + T div 20000;

T := T mod 20000;

end;

if T >= 10000 then begin

count := count + T div 10000;

T := T mod 10000;

end; writeln(count);

close(input);

close(output);

end.
CT này đọc giá trị T từ tệp TINHTIEN.INP và tính toán số lượng tờ tiền ít nhất cần mang theo, sau đó ghi kết quả vào tệp TINHTIEN.OUT.