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.
Tin học là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng. Tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin. Hãy tận dụng sức mạnh của tin học để giải quyết các vấn đề và sáng tạo ra những giải pháp mới!
Lớp 10 - Năm đầu tiên ở cấp trung học phổ thông, chúng ta sẽ có nhiều bạn bè mới đến từ những nơi khác nhau. Ngôi trường mới, xa nhà hơn, mở ra một thế giới mới với nhiều điều thú vị. Hãy mở lòng đón nhận và tận hưởng những trải nghiệm mới!
Copyright © 2024 Giai BT SGK