Viết chương trình nhập số điện tháng trước và số điện tháng sau. Tính số tiền điện phải trả biết 50kW đầu giá 1000/1kW, 50kW tiếp theo giá 2000/1kW và phần còn lại giá 3000/1kW
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.
Tổng số điện 3 mức đầu là
50+50+100=200 kwh
Số điện theo giá mức 4 là
285-200=85 kwh
Số tiền phải trả là
50x1484+50x1533+100x1786+85x2242=
Đổi : 30 ngày = 108000 giờ
1 tháng nhà đó têu thụ số điện năng là:
\(60\times4\times108000=25920000\left(Wh\right)\)=25920(kWh)
1 tháng tiền điện nhà đó là:
\(\text{25920}\times2000=51840000\left(\text{đồng}\right)\)
Nhà anh dùng tầm 60 khối (60kWh) trong 1 tháng, tức 1 ngày dùng 2kWh
Số tiền điện tiêu thụ 1 ngày:
2 x 2500= 5000(đồng)
uses crt;
var n,s,i,j:longint;
st:real;
begin
clrscr;
write('nhap so kw su dung=');readln(n);
s:=0;
if n<=50 then
begin
for i:=1 to n do
s:=s+1500;
end
else begin
for i:=1 to 50 do
s:=s+1500;
for j:=51 to n do
s:=s+2000;
end;
st:=s+s*5/100;
writeln('so tien tong cong la: ',st:4:2);
readln;
end.
bài này chỉ cần nhập số điện rồi tính thôi nhé bạn
uses crt;
var a,hieu,s,t,s1,s2,s3:longint;
begin
clrscr;
write('nhap so dien:'); readln(a);
if a<=50 then t:=a*1000;
if (a>50) and (a<=100) then
begin
if (a>50) and (a<100) then
begin
hieu:=a-50;
s:=hieu*2000;
t:=50*1000+s;
end;
if a=100 then
begin
s1:=50*1000;
s2:=50*2000;
t:=s1+s2;
end;
end;
if a>100 then
begin
s1:=50*1000;
s2:=50*2000;
hieu:=a-100;
s3:=hieu*3000;
t:=s1+s2+s3;
end;
writeln('so tien dien phai tra la: ',t);
readln;
end.