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 ??
2 câu trả lời
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.
