123123

123123

123123

1000 chia lết cho 100

program TinhSoToTien;
var
  n, to100, to200, to1000: integer;
begin
  // Nhập giá trị của mặt hàng
  writeln('Nhap gia tri cua mat hang (n >= 100, n chia het cho 100): ');
  readln(n);
  
  // Tính số tờ tiền mỗi loại
  to100 := n div 100;
  n := n mod 100;  // Cập nhật giá trị còn lại sau khi lấy số tờ tiền 100đ
  
  to200 := n div 200;
  n := n mod 200;  // Cập nhật giá trị còn lại sau khi lấy số tờ tiền 200đ
  
  to1000 := n div 1000;
  
  // In ra số tờ tiền mỗi loại
  writeln('So to tien 100d: ', to100);
  writeln('So to tien 200d: ', to200);
  writeln('So to tien 1000d: ', to1000);
end.