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.
- Biến đếm, giá trị đầu, giá trị cuối là kiểu số nguyên
- Giá trị cuối lớn hơn hoặc bằng giá trị đầu
Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.
Câu 1: Trong câu lệnh lặp For i :=1 to 10 do begin .... end ; câu lệnh ghép được bao nhiêu lần ?
A. 20 lần B. 1 lần C. 2 lần D. 10 lần
Câu 2: Tìm giá trị của S trong đoạn chương trình dưới đây ?
S :=1 ;
For i: = 1 to 5 do S := S*i
A. S = 120 B. S = 240 C. S = 24 D. S = 10
Câu 3: Tìm giá trị của S trong đoạn chương trình dưới đây ?
S :=1 :
For i:= 1 to 5 do S := S + 1
A. S = 10 B. S = 16 C. S = 18 D. S = 14
Câu 4: Câu lệnh for i: 1 to 10 do writeln ('A') ; không hợp lệ vì
A. Giá trị đầu cuối không hợp lệ B. Thiếu dấu = ở phép gán giá trị cho biến
C. Thừa dấu : ở phép gán giá trị cho biến D. Không có đáp án nào đúng
Câu 5: Trong câu lệnh lặp For .... to ....do của Pascal , trong mỗi vòng lặp , biến đếm thay đổi thay đổi như thế nào ?
A. + 1 B. + 1 hoặc - 1 C. Một giá trị bất kì
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.
Câu 1: C
Câu 2: D
Câu 3: B
Câu 4: A
Câu 5: D
Câu 6: A
Câu 7: C
Câu 8: Không có câu nào đúng
Câu 1: B
Câu 2; A
Câu 3: C
Câu 4: C
Câu 5: A
Câu 6: D
Câu 7: B
Câu 8: D
Câu 9: A
Câu 10: D