Question

Viết chương trình nhập số điện tháng trước và số điện tháng sau. Tính số tiền điện phải trả biết 50kW đầu giá 1000/1kW, 50kW tiếp theo giá 2000/1kW và phần còn lại giá 3000/1kW

Answer 1

bài này chỉ cần nhập số điện rồi tính thôi nhé bạn

uses crt;
var a,hieu,s,t,s1,s2,s3:longint;
begin
clrscr;
write('nhap so dien:'); readln(a);
if a<=50 then t:=a*1000;
if (a>50) and (a<=100) then
begin
if (a>50) and (a<100) then
begin
hieu:=a-50;
s:=hieu*2000;
t:=50*1000+s;
end;
if a=100 then
begin
s1:=50*1000;
s2:=50*2000;
t:=s1+s2;
end;
end;
if a>100 then
begin
s1:=50*1000;
s2:=50*2000;
hieu:=a-100;
s3:=hieu*3000;
t:=s1+s2+s3;
end;
writeln('so tien dien phai tra la: ',t);
readln;
end.