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.

uses crt;
var n,s,i,j:longint;
st:real;
begin
clrscr;
write('nhap so kw su dung=');readln(n);
s:=0;
if n<=50 then
begin
for i:=1 to n do
s:=s+1500;
end
else begin
for i:=1 to 50 do
s:=s+1500;
for j:=51 to n do
s:=s+2000;
end;
st:=s+s*5/100;
writeln('so tien tong cong la: ',st:4:2);
readln;
end.

21 tháng 2 2020
Hướng dẫn -Nhập số kw điện sử dụng của gia đình. -Xét sốkw vừa nhập trên bao nhiêu. -Nếu số kw<50kw thì tiền điện được tính: Đơn giá * sốlượng+ thuếVAT. -Nếu số kw>50 kw thì tiền điện được tính: Đơn giá* sốlượng+ThuếVAT
18 tháng 7 2017

Đáp án C

24 tháng 11 2017

Chọn C

6 tháng 1 2019

Đáp án C

14 tháng 8 2019

This ís môn công nghệ  T.T

22 tháng 7 2023

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.