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.

18 tháng 10 2020

21 tháng 10 2020

var n:real;

begin

write(' Nhap so dien dung la: ');readln(n);

writeln(' So tien dien la: ',(n*2000):2:2);

readln;

end.

D
datcoder
CTVVIP
14 tháng 10 2023

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.

loading...

24 tháng 3 2022

giúp mình với, mình cần gấp

10 tháng 3 2022

n=int(input("nhập n="))

if n>100.000:n=n-(n*10%)

 else: n<100.000:n=n-(n*10%)

print(n)

python nha bạn!

1 tháng 5 2023

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.

2 tháng 5 2023

Sao tới 3 end vậy

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.

14 tháng 3 2023

program TongN;

var

     n, i, tong: integer;

begin

     tong := 0;

     writeln('Nhap so nguyen duong N: ');

     readln(n);

     i := 0;

     while i < n do

     begin

          i := i + 1;

          tong := tong + i;

     end;

     writeln('Tong cac so tu 1 den ', n, ' la ', tong);

     readln;

end.