Question

hằng tháng các hộ dân trong thành phố đều nhận được hóa đơn tiền điện.Tiền điện tiêu dùng của mỗi hộ gia đình được tính như sau.

100 số đầu tiên moi số phải trả 1000đ

từ 101 đến 150 số phải trả 2000đ

từ 151 đến 200 số phải trả 2500đ

từ 200 số trở lên phải trả 3000đ

biết rằng lượng điện tiêu thu trong 1 thang là a(kw),a được nhập từ bàn phím.

các bạn giúp mình nhé

Answer 1

program bai1;

uses crt;

var a:longint; tiendien:real;

begin

clrscr;

readln(a);

if a<=100 then tiendien:=a*1000;

if a<=150 then tiendien:=100*1000+2000*(a-100);

if a<=200 then tiendien:=100*1000+2000*50+2500*(a-150);

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

Writeln('so tien dien trong thang la:',tiendien:9:0,'VND');

readln;

END.