Viết chương trình Nếu tổng số tiền mua từ 100000₫ trở lên khách hàng sẽ được giảm 30% tổng số tiền phải thanh toán trong trường hợp ngược lại những khách hàng mua với tổng xuất hiện không đến 100.000 đồng sẽ chỉ giảm 10% nhớ là ko xuất giá trị trực tiếp mà dùng phép gán
Program BTH; Uses crt; Var a,b:real; Begin Clrscr; Write('Nhap so tien: ');readln(a); If a>=100000 then b:=a-(a*30/100) else b:=a-(a*10/100); Writeln('So tien phai tra la: ',b:4:2); readln; End.