Program baitap;

Uses crt;

Var kw,T:integer;

Begin

Clrscr;

Write('Nhap so KW tieu thu:'); Readln(kw);

If kw<=100 then T:=kw*2000;

If (kw>100) and (kw<=150) then T:=kw*2500;

If (kw>150) and (kw<=200) then T:=kw*3000;

If kw>200 then T:=kw*3500;

Writeln('Tien dien tieu thu gia dinh:',T,'(dong)');

Readln

End.

* Xác định bài toán : 

- Input : số kw điện tiêu thụ

- Output : tiền điện tiêu thụ

* Viết chương trình : 

uses crt;

var a, t : longint;

begin

clrscr;

write('nhap luong dien tuieu thu : ');readln(a);

if a <= 100 then t := t * 2000;

if (a > 100) and (a <= 150) then t := 100 * 2000 + (a - 100) * 2500;

if (a > 150) and (a <= 200) then t := 100 * 2000 + 50 * 2500 + (a - 150) * 3000;

if a > 200 then t := 100 * 2000 + 50 * 2500 + 50 * 3000 + (a - 200) * 3500;

writeln('tien dien tieu thu : ', t);

readln

end.