giải bài tập pascal giúp mik vs
tính giá tiền điện từ số kw đã dùng.
từ kw 0 đến 50 đầu giá 1678 đ\kw
từ kw 50 đến 100 1734đ
từ kw 100 đến 200 2014đ
từ kw 200 đến 300 2536đ
và > 300 giá 3000
giải bài tập pascal giúp mik vs tính giá tiền điện từ số kw đã dùng. từ kw 0 đến 50 đầu giá 1678 đ\kw từ kw 50 đến 100 1734đ từ kw 100 đến 200 2014đ
By Madelyn
uses crt;
var n,kq,i:longint;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
if i<50 then kq:=kq+1678;
if (i>=50) and (i<100) then kq:=kq+1734;
if (i>=100) and (i<200) then kq:=kq+2014;
if (i>=200) and (i<=300) then kq:=kq+2536;
if i>300 then kq:=kq+3000;
end;
clrscr;
write(‘So tien la: ‘,kq);
readln;
end.