nhập hộ tên 1 chủ hộ, chỉ số công tơ cũ ,chỉ số công tơ mới. Hãy tính tiền điện cho hộ đó theo cong thức sau:
Thành tiền= số lương tiêu thụ*đơn giá
trong đó: số lương điện tiêu thụ = csctm-csctc
đơn giá :
100kw đầu giá 560 đ/1kw
50kw tiếp theo giá 900d/kw
50kw tiếp theo giá 1350đ/kw
số kw còn lại giá 1750đ/kw
giúp mk vs
uses crt;
var s:string;
m,c,dtt,tt:longint;
begin
clrscr;
write(‘Ten chu ho:’);readln(s);
write(‘Chi so cong to cu:’);readln(c);
write(‘Chi so cong to moi:’);readln(m);
dtt:=m-c;
if dtt>100 then
tt:=100*560
else tt:=dtt*560;
writeln(tt);
dtt:=dtt-100;
if dtt>0 then
if dtt>50 then
tt:=tt+50*900
else tt:=tt+dtt*900;
dtt:=dtt-50;
writeln(tt);
if dtt>0 then
if dtt>50 then
tt:=tt+50*1350
else tt:=tt+dtt*1350;
dtt:=dtt-50;
writeln(tt);
if dtt>0 then
tt:=tt+dtt*1750;
writeln(dtt);
writeln(‘Thanh tien: ‘,tt);
readln;
end.
uses crt;
var csctm,csctc,tt,ld,dg,i: integer;
ht: string;
begin
clrscr;
write (‘nhap ho ten: ‘); readln (ht);
write (‘nhap chi so cong to cu: ‘); readln (csctc);
write (‘nhap chi so cong to moi: ‘); readln (csctm);
ld:=csctm-csctc;
for i:=1 to ld do
if i<=100 then dg:=dg+560
else if i<150 then dg:=dg+900
else if i<200 then dg:=dg+1350
else dg:=dg+1750;
tt:=ld*dg;
writeln (‘thanh tien la: ‘,tt);
readln;
end.