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
17 tháng 8 2021

Cách đơn giản nhất là dùng câu lệnh
if …
else if…
else

17 tháng 8 2021

bạn viết ra đc kh ạ

4 tháng 12 2016

program CT_dautien;

uses crt;

var a:integer;

begin

clrscr;

writeln('moi nhap so a');readln(a);

if a mod 2 = 0 then write(a, 'la so chan') else write(a, 'la so le');

readln

end.

26 tháng 11 2016

sử dụng cấu trúc IF <điều kiện> THEN <câu lệnh>