bài1: viết chương trình nhập vào 2 số tự nhiên a,b sẽ in ra hết quả là phép so sánh của hai số đó. vd: 4>3; 3=3; 3<4
bài2: hình thoi(d=n/mod 2)đến hình vuông(d=0) đến in ra là đúng
hình thoi(d=n/mod 2) đến in ra là sai
bài3:các câu hỏi và bài tập trang 50 bài 6 phần câu hỏi và bài tập giải hết =))
cảm ơn các bạn đã đọc và giúp mik làm
1/50
- Nếu bị ốm, bạn không thể đi học.
- Nếu không có tiền, bạn không mua được ô tô.
- Nếu không học, bạn sẽ bị điểm kém.
- Nếu ăn quá nhiều, bạn sẽ bị đau bụng.
- Nếu đạt điểm tổng kết cả năm cao hơn 8.5, em sẽ đạt danh hiệu "Học sinh giỏi"
- Nếu không được cắm điện, máy tính để bàn của em sẽ không hoạt động được
- Nếu bị bệnh, em (cần phải) đi đến phòng khám để bác sĩ khám bệnh
- Nếu không được tưới đủ nước đúng thời kì phát triển, lúa sẽ không cho thu hoạch cao
2/50:
a) đúng
b) sai
c) đúng
d) có thể đúng hoặc có thể sai(tùy thuộc vào giá trị của biến x)
3/50:
- Nếu người thứ nhất đoán đúng thì điểm sẽ tăng lên 1 điểm, nếu sai không bị trừ điểm rồi đến lượt người thứ hai đoán.
- Nếu người thứ hai đoán đúng điểm sẽ tăng lên 1, nếu sai không bị trừ điểm rồi quay về lượt của người thứ nhất. Kết thúc 1 lượt đoán.
- Sau 10 lượt đoán, nếu ai được nhiều điểm hơn thì người đó sẽ thắng.
4/50
- Điều kiện để điều khiển chiếc khay trong trò chơi là:
Nếu nhấn phím mũi tên → thì khay sẽ dịch sang phải một bước.
Nếu nhấn phím mũi tên ← thì khay sẽ dịch sang trái một bước.
Nếu không nhấn 2 phím → và ←, khay sẽ đứng yên.
5/51:
a) sai
b) đúng
c) sai
d) đúng
e) sai
f) đúng
6/51:
a) X = 6.
Do 45 chia hết cho 3 nên điều kiện thỏa mãn và X sẽ tăng lên 1 và bằng 6
b) X = 5.
Do X = 5 < 10 nên điều kiện không thỏa mãn.
7/51
a) Mô tả thuật toán
-Bước 1: nhập số tự nhiên n
-Bước 2: nếu n chia hết cho 2 thì xuất n la so chan
Bước 3: không thì xuất n la so le
Bước 4: Kết thúc
b) Viết chương trình
uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.
program so_sanh;
uses crt;
var a,b: integer;
begin
clrscr;
writeln(' nhap so a:'); readln(a);
writeln('nhap so b:'); readln(b);
if a>b then writeln(' so a lon hon so b:');
if a<b then writeln(' so a nho hon so b:');
if a=b then writeln(' so a bang so b:');
readln;
end.
bài 1:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' lon hon ',b)
else if a<b then writeln(a,' be hon ',b)
else writeln(a,' bang ',b);
readln;
end.
bài 2: mình không rõ đề cho lắm
bài 3:
trang 50 không có bài 6 nhé bạn
trang 51 thì có
Câu 1:
uses crt;
Var a,b:Integer;
begin
Clrscr ;
Write ('Nhap so a: '); readln (a);
Write ('Nhap so b: ');readln (b);
If (a<0) or (b<0) then write ('Vui long nhap hai so deu la so tu nhien');
If (a>=0) and (b>=0) and ( a=b) then write (a,' = ',b);
If (a>=0) and (b>=0) and (a>b) then write (a,' > ',b);
If(a>=0) and (b>=0) and (a <b) then write (a,' < ',b);
readln;
end.
