K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
DC
11 tháng 9 2020
program bai1;
uses crt;
var a:longint; tiendien:real;
begin
clrscr;
readln(a);
if a<=100 then tiendien:=a*1000;
if a<=150 then tiendien:=100*1000+2000*(a-100);
if a<=200 then tiendien:=100*1000+2000*50+2500*(a-150);
if a>=200 then tiendien:=100*1000+2000*50+2500*50+3000*(a-200);
Writeln('so tien dien trong thang la:',tiendien:9:0,'VND');
readln;
END.
program tinh_tien_dien;
var
kwh, tien_chua_thue, tien_thue, tien: real;
begin
writeln('Nhap so kWh dien tieu thu trong thang:');
readln(kwh);
if kwh <= 50 then
tien_chua_thue := kwh * 600
else if kwh <= 100 then
tien_chua_thue := 50 * 600 + (kwh-50) * 1004
else
tien_chua_thue := 50 * 600 + 50 * 1004 + (kwh-100) * 1214;
tien_thue := tien_chua_thue * 0.1;
tien := tien_chua_thue + tien_thue;
writeln('So tien dien phai tra trong thang la: ', tien:0:0, ' VND (trong do, thue 10% la ', tien_thue:0:0, ' VND, tien chua thue la ', tien_chua_thue:0:0, ' VND).');
end.