Uses crt;
Var a:longint; tiendien:real;
Begin
Clrscr;
Writeln('Luong dien tieu thu la (kWh):'); Readln (a);
If a<=50 then tiendien:= (a*1678) + (a*10/100*1678);
If (a>=51) and (a<=100) then tiendien:= (50*1678) + ((a-50)*1734)
+ (50*10/100*1678) + ((a-50)*10/100*1734);
If (a>=101) and (a<=200) then tiendien:= (50*1678) + (50*1734)
+ ((a-100)*2014) + (50*10/100*1678) + (50*10/100*1734)
+ ((a-100)*10/100*2014));
If (a>=201) and (a<=300) then tiendien:= (50*1678) + (50*1734)
+(100*2014) + ((a-200)*2536)
+ (50*10/100*1678) + (50*10/100*1734)
+ (100*10/100*2014) + ((a-200)*10/100*2536);
If (a>=301) and (a<=400) then tiendien:= (50*1678) + (50*1734)
+ (100*2014) + (100*2536) + ((a-300)*2834)
+ (50*10/100*1678) + (50*10/100*1734)
+ (100*10/100*2014) + (100*10/100*2536)
+ ((a-300)*10/100*2834);
If a>=401 then tiendien:= (50*1678) + (50*1734) + (100*2014)
+ (100*2536) + (100*2834) + ((a-400)*2927)
+ (50*10/100*1678) + (50*10/100*1734)
+ (100*10/100*2014) + (100*10/100*2536)
+ (100*10/100*2834)) +((a-400)*10/100*2927);
Writeln('So tien dien phai tra sau thue trong thang la:',tiendien:9:0, 'VND');
Readln;
End.
(Nếu giải theo cách bình thường (Đối với If..then) thì đây ạ :))) )) *Nhớ tick và chấm là câu tr/l hay nhất cho mình nhé! Có gì không hiểu, comment bên dưới. Thanks!
P/S: Mình bỏ nhiều công sức lắm đấy ạ :(((
