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.
* 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)
1. program b1 ;
var i,n :integer ;
begin
tong:=0;
for i:= 1 to 200 do n:=n+i;
write('Tong 200 so nguyen dau tien la :',n);
readln
end.
2. program b2 ;
var i,t: integer;
begin
t:=1;
for i:= 1 to n do t:=t*i;
write('Tich 30 so nguyen dau tien la : ',t);
readln
end.
3. program b3;
var n,i : integer ;
begin
write('n='); readln(n);
n:=1;
for i:= 1 to n do n:=n*i; write('n!=',n);
readln
end.
4. program b4;
var i,n,x:integer;
lt:longint;
begin
write('nhap x='); readln(x);
write('nhap n='); readln(n);
lt:=1;
for i:=1 to n do lt:=lt*x;
write(x,'^',n,'=',lt);
readln
end.
Đoạn chương trình 1:
j=7
k=10
Đoạn chương trình 2:
j=7
k=28
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.
Chỉ số mới, chỉ số cũ là gì bạn? Mình không hiểu lắm
Cách đơn giản nhất là dùng câu lệnh
if …
else if…
else
bạn viết ra đc kh ạ