Pascal nhee 

2) Tính tiền điện

Công ty điện lực đưa ra cách tính tiền điện như sau :

Từ 1 đến 50 số mức  giá 1500đ/số

Từ số thứ 51 đến số thứ 100 mức  giá 1700đ/số

Từ số thứ 101 đến số thứ 150 mức  giá 1800đ/số

Từ số thứ 151 đến số thứ 200 mức  giá 1900đ/số

Từ số thứ 201 trở lên mức  giá 2000đ/số

Một gia đình một tháng dùng n số điện, em hãy lập chương trình tính số tiền mà gia đình đó phải trả.

Ví dụ n = 70 thì số tiền phải trả là 107000 

vì 50*1500+20*1600= 107000

 

$\color{#EEEEEE}{\textbf{#Z}}$$\color{#DDDDDD}{\textbf{a}}$$\color{#CCCCCC}{\textbf{g}}$$\color{#BBBBBB}{\textbf{n}}$$\color{#AAAAAA}{\textbf{e}}$$\color{#999999}{\textbf{r}}$

var n:integer;
tien:longint;
begin
writeln('Nhập số tiền điện : ');
readln(n);
if n<=50 then
tien:=n*1500 
else if n<=100 then
tien:= 50*1500+(n-50)*1600
else if n<=150 then
tien:=50*1500+50*1600+(n-100)*1800
else if n<=200 then
tien:=50*1500+50*1600+50*1800+(n-150)*1900
else if n<=250 then
tien:=50*1500+50*1600+50*1800+50*1900+(n-200)*200;
writeln(tien);
end.

var n:integer;
t:longint;
begin
readln(n);
if n<=50 then
t:=n*1500
else if n<=100 then
t:= (50*1500)+((n-50)*1600)
else if n<=150 then
t:=(50*1500)+(50*1600)+((n-100)*1800)
else if n <= 200 then
t:=(50*1500)+(50*1600)+(50*1800)+((n-150)*1900)
else
t:=(50*1500)+(50*1600)+(50*1800)+(50*1900)+((n -200)*2000);
writeln(t);
end.

trả lời theo đề bài