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.
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.
* Mô tả thuật toán:
- Nhập a;
- Nếu a<100 then với giá 1200đ ngược lại với giá 2000đ;
- In kết quả ra màn hình và kết thúc.
* Viết chương trình:
program Tien_dien;
uese crt;
var a,S:integer;
begin
clrscr;
write('Hay nhap KW tiêu thụ');readln(a);
if a<100 then S:=100*1200 else S:=100*2000;
writeln('So tien ho gia dinh can tra:',S);
readln
end.
(mk hk chắc nha bạn mk chỉ pk nhiêu đây thôi)
{ đơn giá: a, số lượng: b}
uses crt;
var a,b,s,thanhtoan:integer;
begin
write('nhap gia don hang:');
read(a);
write('nhap so luong hang:');
s:=0;
thanhtoan:=0;
s:=a*b;
if s>100 then thanhtoan:= s*(30/100)
else thanhtoan:= s* (10/100);
write(' so tien can thanh toan la:',' ',thanhtoan);
readln;
end.