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
![](https://rs.olm.vn/images/avt/0.png?1311)
ML
2 tháng 3 2021
1.C
2.A
4.A
5.A
6.D
7.C
8.A
III.
Program HOC24;
var n,d: integer;
begin
write('Nhap N: '); readln(n);
if n mod 2=1 then
begin
begin
n:=n+1;
write(n,' ');
end;
d:=1;
while d<20 do
begin
n:=n+2;
write(n,' ');
d:=d+1;
end;
end else
begin
d:=1;
while d<=20 do
begin
n:=n+2;
write(n,' ');
d:=d+1;
end;
end;
readln
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
NM
Nguyễn Minh Quang
Giáo viên
11 tháng 5 2021
vì câu lệnh \(for\text{ }i:=\text{ 4 }to\text{ 10}\) nên vòng lặp trên lặp \(10-4+1=7\)lần
mỗi vòng lặp đều tăng j thêm 2 đơn vị \(\left(j:=j+2\right)\)nên sau khi kết thúc
giá trị của j là\(j=0+2\times7=14\)
khoanh B
I: Trắc nghiệm
Câu 1: C
Câu 2: A
Câu 3: C
Câu 4: C
Câu 5: C
Câu 6: D
Câu 7: B
Câu 8: D
Câu 9: C
Câu 10: B
Câu 11: D
Câu 12: B
Câu 13: B
Câu 14: A
Câu 15: B
Câu 16: B
Câu 17: Không rõ câu hỏi
Câu 18: B
Câu 19: B
Câu 20: B
Câu 21: A
Câu 22: C
Câu 23: B
Câu 24: A
II: Bài tập:
uses crt;
var i,s,n:longint;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 3=0 then s:=s+i;
writeln('tong cac so tu nhien chia het cho 3 khong vuot qua ',n,' la: ',s);
readln;
end.