viết chương trình tính tiền nước. Nhập số khối nước
– Nếu số khối nước >= 12 thì giá tiền là 7500đ cộng thêm 1% thuế
– Nếu số khối nước >10<=20 thì giá tiền là 10000 cộng thêm 5% thuế
- Nếu số khối nước>20 thì giá tiền là 125000 thuế 10% và phạt 50000
uses crt;
var kn:integer;tn:real;
BEGIN
clrscr;
write(‘Nhap so khoi nuoc: ‘);readln(kn);
if kn<=12 then tn:=7500*kn+(7500*1/100) else
if kn<=20 then tn:=10000*kn+(7500*5/100) else
if kn>20 then tn:=12500*kn+(7500*10/100)+50000;
writeln(‘So tien nuoc la: ‘,tn:5:3,’d’);
readln
END.