Hàng tháng các hộ dân trong thành phố đều nhận được hóa đơn tiền điện, tiền điện tiêu dùng của mỗi hộ gia đình được tính như sau:
-100 số đầu tiên:mỗi số phải trả là 1110 đồng.
-Từ 101 số đến 150 số, mỗi số phải trả là 1470 đồng.
-Từ 150 số đến 200 số, mỗi số phải trả là 1600 đồng.
-Số tiền phải trả là số tiền được cộng thêm 10% thuế VAT.
Biết rằng lượng điện tiêu thụ trong một tháng của nhà Tuấn là a (KW). Hãy viết chương trình tính số tiền điện phải trả cho tháng đó của gia đình bạn Tuấn (a được nhập từ bàn phím).
program tiendien;
uses crt;
var a:longint;
td:real;
begin
clrscr;
write('nhap so KW nha Tuan da dung=');readln(a);
if a<=100 then td:=1110*a else
if a<=150 then td:=1110*100+(a-100)*1470 else
td:=1110*100+1470*50+(a-150)*1600;
writeln('so tien nha Tuan phai tra la:',td+0.1*td:9:0,' VND');
readln
end.