Viết chương trình tính tiền điện hàng tháng với đơn giá
1Kw = 2000đ. Biết rằng chỉ số đầu và chỉ số cuối được nhập từ bàn phím.
Viết chương trình viết tiền điện hàng tháng với đơn giá 1kw=2000₫. Biết rằng chỉ số đầu và chỉ số cuối được nhập từ bàn phím
Viết chương trình pascal tính tiền điện hàng tháng với đơn giá 1Kw = 2000 đ. Biết rằng chỉ số đầu và chỉ số cuối được nhập từ bàn phím
Nhanh nhanh giúp mình nha
3 bạn nhanh (và đúng nhất) mình ti.ck cho
Cho đơn giá tính tiền điện như sau:
- Từ kw thứ 1 đến 50: 1000đ/kw
- Từ kw thứ 51 đến 100: 2000đ/kw
- Từ kw thứ 101 trở lên: 3000đ/kw
Hãy viết chương trình nhập vào chỉ số điện tháng trước và chỉ số điện tháng này . In ra màn hình số kw tiêu thụ và Thành tiền phải trả .
Em hãy tìm hiểu biểu giá điện và lập chương trình Scratch tính tiền điện hàng tháng cho gia đình em với số điện năng (kWh) được nhập từ bàn phím.
HS tự tìm hiểu giá điện và tham khảo chương trình sau
+ Bậc 1: Từ 0 – 50kWh: 1.678 đồng/kWh.
+ Bậc 2: Từ 51 – 100kWh: 1.734 đồng/kWh.
+ Bậc 3: Từ 101 – 200kWh: 2.014 đồng/kWh.
Mô tả thuật toán và viết chương trình để tính tiền điện của ra đình em .Số lượng tiêu thụ điện trong tháng được nhập từ bàn phím.
giúp mình với, mình cần gấp
Viết chương trình pascal tính tiền cho khách hàng mua sách biết đơn giá và số lượng mặt hàng nhập vào từ bàn phím. Một hiệu sách thực hiện đợt khuyến mãi lớn với nội dung sau: Nếu mua sách với tổng số tiền ít nhất 100 nghìn đồng, khách hàng sẽ được giảm 30% tổng số tiền phải thanh toán. Nếu mua sách với tổng số tiền không đến 100 nghìn đồng,khách sẽ được giảm 10% tổng số tiền phải thanh toán
{ đơ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.
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
C1.Viết chương trình tính tổng hai số A và B với A, B là 2 số được nhập từ bàn phím C2. Viết Chương trình nhập vào ba số nguyên a, b, c. tính a+b-c. C3.Viết Chương trình tính hiệu a - b với a,b là hai số nguyên nhập từ bàn phím. C4.Chương trình nhập vào 3 số x, y, z. Tính (x+y)*z Giúp em với ạ em cảm ơn nhiều lắm ạ
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
write(a+b);
readln;
end.
Câu 2:
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b-c);
readln;
end.
Câu 3:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a-b);
readln;
end.
Câu 4:
uses crt;
var x,y,z:integer;
begin
clrscr;
readln(x,y,z);
writeln((x+y)*z);
readln;
end.
Câu 1 : viết chương trình tính tổng các số chẵn với n được nhập từ bàn phím ?
Câu 2 : viết chương trình tính tổng các số lẻ với n được nhập từ bàn phím ?
Câu 1:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 2 to n do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);
readln;
end.
Câu 2:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 2 = 1 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);
readln;
end.