giúp mk vs!
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! 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
By Claire
Program dien;
uses crt;
var a:longint;
tiendien:real;
begin
clrscr;
readln(a);
if a<=100 then tiendien:=a*560;
if a<=150 then tiendien:=100*560+900*(a-100);
if a<=200 then tiendien:=100*560+900*50+1350*(a-150);
if a>=200 then tiendien:=100*560+900*50+1350*50+1750*(a-200);
Writeln(‘so tien dien trong thang la:’,tiendien:0:0,’VND’);
readln;
END.
ko bt đk
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.