Cho đơn giá tính tiền điện như sau:
- Từ kw thứ 1 đến 50: 1000đ/kw
- Từ kw thứ 51 đến 100: 2000đ/kw
- Từ kw thứ 101 trở lên: 3000đ/kw
Hãy viết chương trình nhập vào chỉ số điện tháng trước và chỉ số điện tháng này . In ra màn hình số kw tiêu thụ và Thành tiền phải trả .
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
148=5+50+93
tương ứng với bậc 1 là 5 kw
bậc 2 là 50 kw
bậc 3 là 93kw
tiền điện nhà Ông An phải trả là(chưa tính VAT)
5*1480+50*1620+93*1860 = 261380đồng
tiền điện nhà Ông An phải trả là (tính cả VAT)
261380+(261380*10/100)=287518 đồng
program bai1;
uses crt;
var a:longint; tiendien:real;
begin
clrscr;
readln(a);
if a<=100 then tiendien:=a*1000;
if a<=150 then tiendien:=100*1000+2000*(a-100);
if a<=200 then tiendien:=100*1000+2000*50+2500*(a-150);
if a>=200 then tiendien:=100*1000+2000*50+2500*50+3000*(a-200);
Writeln('so tien dien trong thang la:',tiendien:9:0,'VND');
readln;
END.
Tham khảo
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if (10<a[i]) and (a[i]<20) then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So phan tu lon hon 10 va nho hon 20 la: ',dem);
writeln('Tong cac phan tu lon hon 10 va nho hon 20 la: ',t);
readln;
end.
Có tất cả 13 hộ gia đình có mức tiêu thụ điện năng dưới 100 kw/ h.
Chọn B.
- Từ kw thứ 101 trở lên: 3000đ/kw