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.

15 tháng 11 2019

bài này chỉ cần nhập số điện rồi tính thôi nhé bạn

uses crt;
var a,hieu,s,t,s1,s2,s3:longint;
begin
clrscr;
write('nhap so dien:'); readln(a);
if a<=50 then t:=a*1000;
if (a>50) and (a<=100) then
begin
if (a>50) and (a<100) then
begin
hieu:=a-50;
s:=hieu*2000;
t:=50*1000+s;
end;
if a=100 then
begin
s1:=50*1000;
s2:=50*2000;
t:=s1+s2;
end;
end;
if a>100 then
begin
s1:=50*1000;
s2:=50*2000;
hieu:=a-100;
s3:=hieu*3000;
t:=s1+s2+s3;
end;
writeln('so tien dien phai tra la: ',t);
readln;
end.

26 tháng 12 2021

     - Từ kw thứ 101 trở lên: 3000đ/kw

20 tháng 12 2020

có cần phải số giây nữa k bạn vd: 6 phút 30s

20 tháng 12 2020

Có ạ

23 tháng 8 2023

a) 

#include <stdio.h>

int main(){

 float soDien, tienDien;

 int bac1=1678, bac2=1734, bac3=2014, bac4=2536, bac5=2834, bac6=2927;

 printf("Nhap vao so dien cua ban (kWh): ");

 scanf("%f",&soDien);

 if(soDien<0){

 printf("\nVui long nhap lai So Dien\nSo dien khong duoc nho hon 0\n");

 }else if(soDien<=50){

  tienDien=soDien*bac1;

  printf("\nban da dung dien trong khoang 0 - 50 kWh so tien ban phai tra la: %.2f",tienDien);

 }else if(soDien<=100){

  tienDien=50*bac1+((soDien-50)*bac2);

  printf("\nban da dung dien trong khoang 51 - 100 kWh so tien ban phai tra la: %.2f",tienDien);

 }else if(soDien<=200){

  tienDien=50*bac1+(50*bac2)+((soDien-100)*bac3);

  printf("\nban da dung dien trong khoang 101 - 200 kWh so tien ban phai tra la: %.2f",tienDien);

 }else if(soDien<=300){

  tienDien=50*bac1+(50*bac2)+(100*bac3)+((soDien-200)*bac4);

  printf("\nban da dung dien trong khoang 201 - 300 kWh so tien ban phai tra la: %.2f",tienDien);

 }else if(soDien<=400){

  tienDien=50*bac1+(50*bac2)+(100*bac3)+(100*bac4)+((soDien-300)*bac5);

  printf("\nban da dung dien trong khoang 301 - 400 kWh so tien ban phai tra la: %.2f",tienDien);

 }else if(soDien>400){

  tienDien=50*bac1+(50*bac2)+(100*bac3)+(100*bac4)+(100*bac5)+((soDien-400)*bac6);

  printf("\nban da dung dien tren 400 kWh so tien ban phai tra la: %.2f",tienDien);

 }

 return 0;

}

b) #include <iostream.h>

#include <conio.h>
void main()
{
clrscr();
long int x,n;
cout<<"Nhap so Kw dien da dung: ";
cin>>x;
if (x<=100)
n=x*450;
else if (100<x<150)
n=100*450+(x-100)*750;
else
n=100*450+50*750+(x-150)*950;
cout<<"So tien phai tra la: "<<n<<" dong";
getch();
}

20 tháng 11 2023

#include <iostream>

int main() {
    // Nhập vào số lượng kWh tiêu thụ từ bàn phím
    int N;
    std::cout << "Nhap so luong kWh tieu thu: ";
    std::cin >> N;

    // Kiểm tra ràng buộc
    if (N <= 0 || N >= 1000) {
        std::cerr << "Nhap khong hop le. N phai nam trong khoang (0, 1000)" << std::endl;
        return 1;
    }

    // Tính tiền điện
    int gia1 = 1500; // Giá cho dưới 200 kWh
    int gia2 = 3000; // Giá cho từ 200 kWh trở lên
    int thanhTien;

    if (N <= 200) {
        thanhTien = N * gia1;
    } else {
        thanhTien = 200 * gia1 + (N - 200) * gia2;
    }

    // In kết quả ra màn hình
    std::cout << "Tien dien cua ban Nam la: " << thanhTien << " VND" << std::endl;

    return 0;
}

24 tháng 8 2021
Uses crt;

Var i,k,n,bk,tong: integer;

a: array[1..1000] of integer;

Begin

write('Nhap K: '); readln(k);

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

{câu a}

For i:=1 to n do 

if a[i]=k then bk:=bk+1;

writeln('Co so phan tu bang k la:',k);

{câu b}

For i:=1 to n do 

if a[i]=k then

begin

write(i,' ');

tong:=tong+a[i];

end;

write('. Tong la:',tong);

readln

end.

31 tháng 8 2021

uses crt;
var k,n,tong,d,i:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  write('k=');readln(k);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
        end;
  d:=0;
  for i:=1 to n do if(a[i]=k)then inc(d);
  writeln('so phan tu bang voi:',k,' la:',d);
  write('cac so co vi tri bang voi:',k,' la:');
  tong:=0;
  for i:=1 to n do if(a[i]=k)then
        begin
         write(i,' ');
         tong:=tong+a[i];
        end;
  write('tong cua cac so bang voi:',k,' la:',tong);
 readln;
end.

23 tháng 12 2020

uses crt;

var a:array[1..200]of integer;

i,n,tbc,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

       write('A[',i,']='); readln(a[i]);

  end;

writeln('Cac so duong chan la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]>0) then write(a[i]:4);

writeln;

tbc:=0;

dem:=0;

for i:=1 to n do 

  if (-1000<=a[i]) and (a[i]<=1000) then

begin

tbc:=tbc+a[i];

dem:=dem+1;

end;

writeln('Trung binh cong cac phan tu co gia tri trong pham vi tu -1000 den 1000 la: ',tbc/dem:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double b[100],x,ln,t;

int i,n,dem;

int main()

{

cin>>n;

ln=-1e10;

for (i=1; i<=n; i++)

{

cin>>b[i];

ln=max(ln,b[i]);

}

for (i=1; i<=n; i++)

cout<<b[i]<<" ";

cout<<endl;

cout<<ln<<endl;

t=0;

dem=0;

for (i=1; i<=n; i++) 

if (a[i]>x) 

{

t=t+a[i];

dem++;

}

cout<<fixed<<setprecision(2)<<t/(dem*1.0);

return 0;

}