HQ
2
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
3 tháng 12 2018
program baitap;
uses crt;
var thanhtien:real;
begin
clrscr;
write (' So tien khach da mua la: '); readln (thanhtien);
if thanhtien>=100000 then thanhtien := (70*thanhtien/100)
else thanh tien := (90*thanhtien/100);
writeln (' So tien khach phai tra la: ',thanhtien:4:2);
readln;
end.
H
1
NK
22 tháng 11 2021
Tham khảo:
program gia_tri_tuong_ung;
uses crt;
var x,y,z:integer;
begin
clrscr;
write("Nhap x=");readln(x);
write("Nhap y=");readln(y);
writeln('Hai so nguyen truoc khi hoan doi');
writeln('a=',a);
writeln('b=',b);
z:=x;
x:=y;
y:=z;
writeln('Hai so nguyen sau khi hoan doi');
writeln('a=',a);
writeln('b=',b);
readln;
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
15 tháng 5 2021
vd:
Program chuongtrinhnhapmang;
var n:integer;
begin
write('Nhap n='); readln(n);
end;
Những từ in đậm là từ khóa
in nghiêng là tên chương trình
HT
31 tháng 3 2019
var a,Thunhap_TB:real;i:Integer;
begin
thunhap_tb:=0;
for i:=1 to 50 do
begin
write('thu nhap cua gia dinh thu ',i);
readln(a);
thunhap_tb:= thunhap_tb + a
end;
thunhap_tb:= thunhap_tb/50;
for i := 1 to 50 do begin
write('thu nhap cua gia dinh thu',i) ; readln(a);
write('Do lech o voi thu nhap tb la : ', a - thunhap_tb)
end;
end.
KN
15 tháng 3 2021
a)
- Ví dụ 1:
For i:=1 to 10 do s:=s+i;
- Ví dụ 2:
For i:=1 to 5 do writeln('a');
b)
Dạng tiến: FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO <câu lệnh>;
Dạng lùi: FOR <biến đếm> := <giá trị cuối> DOWNTO <giá trị đầu> DO <câu lệnh>;
NL
Nguyễn Lê Phước Thịnh
CTVHS
15 tháng 3 2021
b) Cú pháp:
-Xuôi: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Giải thích:
-Biến đếm: có thể là kiểu số nguyên hoặc kiểu ký tự
-Giá trị đầu, giá trị cuối có thể là số nguyên hoặc ký tự
program Tinh_tien;
uses crt
var a,b:integer;
T:real;
begin
clrscr;
writeln('Nhap don gia:',a);readln(a);
writeln('Nhap so luong:',b);readln(b);
T:=a*b;
if T>=100000 then T:=T*0.7 else T:=T*0.9
writeln('So tien phai tra:',T);
readln
end.
program Tinh_tien;
uses crt
var a,b:integer;
T:real;
begin
clrscr;
writeln('Nhap don gia:',a);readln(a);
writeln('Nhap so luong:',b);readln(b);
T:=a*b;
if T>=100000 then T:=T*0.7 else T:=T*0.9
writeln('So tien phai tra:',T);
readln
end.
Ngọc Hân Võ Phạm, sao chép y xì tớ vậy?
giống nhau thôi mà