Viết chương trình nhập số kw điện, tính và đưa ra màn hình số tiền phải trả. biết rằng số tiền phải trả được tính theo công thức: nếu số kw ≤ 100 thì tính 2000đ/1kw; nếu kw > 100 thì tính 2500đ/1kw)
Help me plsssss ????????
Viết chương trình nhập số kw điện, tính và đưa ra màn hình số tiền phải trả. biết rằng số tiền phải trả được tính theo công thức: nếu số kw ≤ 100 thì
By Hadley
program tiendien;
uses crt;
var dien:integer;
td:longint;
begin
clrscr;
write(‘Nhap so kw dien: ‘);
readln(dien);
if dien<=100 then td:=dien*2000
else if dien>100 then td:=dien*2500;
write(‘So tien dien phai tra la: ‘,td);
readln
end.
uses crt;
var kw,td: longint;
begin
clrscr;
wtite (‘nhap so dien tieu thu (kw): ‘); readln (kw);
if kw<=100 then td:=2000*kw;
if kw>100 then td:=2500*kw;
writeln (‘tien dien la: ‘,td);
readln;
end.