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âu 1: B
Câu 2: A
Câu 3: D
Câu 4: C
Câu 5: B
Câu 6: A
Câu 7: D
Câu 8: C
Câu 9: D
Câu 10: C
A) Sai vì dư dấu " ; " trước chữ " then "
B) Sai vì thiếu chữ " write( " sau chữ " then "
C) Sai vì thiếu dấu " = " ở lệnh gán giá trị
D) Sai vì thiếu dấu " : " trước dấu " = " ở lệnh gán giá trị
A: Sai vì dư dấu ;
B: Sai vì thiếu dấu (
C: Sai vì thiếu điều kiện và thiếu dấu = ở phép gán
D: Đúng
sua lai nhu sau:
a) if x=5 then a = b; sai vi sau if la 1 phep so sanh
b) if x>2 then a:=b; sai vi sau if x>2 phai bo dau ;
c) if x>5 then a:=b; m:=n; dung
d) if x>2 then a=b else m:=n; sai vi phai bo dau ; sau then a=b
a, sai vi sau if ko phai phep so sanh
b, sai. vi phai bo dau ; sau if x>2
c, dung
d, bo dau ; sau then a=b
Câu 1: C,D đều đúng nhé bạn
Câu 2: D
Câu 3: A sai, B sai, C đúng, D sai
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.
B và C đều hợp lệ mà bạn
B hợp lệ nha.