Question

bài 1. mua hàng

nhân dịp ngày nghĩ, Tom đi siêu thị mua sữa, Tom mang theo số tiền là A. vs số tiền này Tom muốn mua đc nhiều lon sữa nhất có thể. Nhưng Tom tính như thế nào để thực hiện mong muốn trên, biết rằng:

- 1 lon sữa có giá 10000 đồng

- 1 thùng sữa (12 lon) có giá 110000 đồng

- sữa phải mua nguyên thùng hoặc nguyên lon

em hãy viết chương trình giúp Tom thực hiện ý định trên.

* dữ liệu vào: số tiền A đc nhập từ bàn phím

* kết quả ra : ghi ra màn hình số thùng sữa hoặc số lon sữa mà Tom mua đc

#giúp mình vs nhé

Answer 1

uses crt;
var a,b,c: longint;
d,e,f: longint;
begin
writeln('Nhap so tien A (don vi: nghin dong): '); readln(a);
a:=a*10*10*10;
b:=10000;
c:=110000;
if a>c then begin
d:=a div c; e:=a - c*d;
f:=e div b;
end
else f:=a div b;
if d >0 then
write('Voi so tien do mua duoc: ',d,' thung sua va ',f,' hop sua')
else write('Chi mua duoc ',f,' hop sua thoi');
readln
end.