Viết chương trình tính tiền cho khách hàng mua sách biết đơn giá và số lượng mặt hàng nhập vào từ bàn phím. Một hiệu sách thực hiện đợt khuyến mãi lớn với nội dung sau: Nếu mua sách với tổng số tiền ít nhất là 100 nghìn đồng, khách hàng sẽ đc giảm 30% tổng số tiền phải thanh toán. Làm ơn help me
1 câu trả lời
program sksk;
uses crt;
var sl, dg, t : real;
begin
clrscr;
write('nhap so luong mat hang :');readln(sl);
write('nhap don gia cua mat hang :');readln(dg);
t := sl*dg;
if t >= 100000 then writeln('so tien khach hang can tra la :', (t*0.7):8:0)
else writeln('so tien khach hang can phai tra la :', t:8:0);
readln
end.