ét o ét đê ;-;
Câu 8: Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?

A. if...then            B. if...then...else               C. for...to…do           D. while...do
 

Câu 9. Trong Câu lệnh lặp: For i := 1 to 15 do s:= s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?

A. 10 lần ;                           B. 15 lần;                                             C. 20 lần;                             D. Không thực hiện.

Câu 10 : Trong câu lệnh lặp    for i :=1 to 20 do begin s:= s+i; end ;

câu lệnh gán được thực hiện bao nhiêu lần?

a) Không lần nào.                       b) 1 lần                       c) 2 lần                       d) 20 lần

Câu 11 : Trong câu lệnh lặp: For <Biến đếm>:=<Giá trị đầu> to <Giá trị cuối> do <câu lệnh>; Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:

A. 1 đơn vị                 B. 2 đơn vị                 C. 3 đơn vị                 D. 4 đơn vị
 

Câu12: Khi nào thì câu lệnh lặp For…do (dạng tiến) kết thúc?

A. Khi biến đếm nhỏ hơn giá trị cuối.                B. Khi biến đếm bằng giá trị đầu.

C. Khi biến đếm bằng giá trị cuối.                      D. Khi biến đếm lớn hơn giá trị cuối.

Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n= ’); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); readln(a[i]);
End;
s:=0;
for i:=1 to n do
if (a[i]mod 2=1) then s:=s+a[i];
write(‘tong so le ’,s);

d:=0;
for i:=1 to n do
if (a[i]mod 3=0) then d:=d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:=1 to n do b[i]:=2*a[i];
For i:=1 to n do write(b[i]:4);
readln
end.

code này sai chỗ nào vậy mn ?, giúp em sửa với ạ.

Mọi người giúp em với :<

Câu 1: Để in ra màn hình các số nguyên từ 1 đến 10, câu lệnh nào dưới đây đúng?

a. For i:=10 to 1 do write(i);

b. For i:=1 to 10 do write('i':2);

c. For i:=0 to 10 do write(i);

d. For i:=1 to 10 do write(i:2);

Câu 2: Cho biết số lần lặp của đoạn chương trình sau: For i:=-1 to 1 do write(i);

a. 0

b. 1

c. 2

d. Không xác định

Câu 3: Cho biết kết quả của đoạn chương trình sau: S:=0; for i:=1 to 100 do if (i mod 2=0) then write(i:2);

a. In ra màn hình các số nguyên từ 1 đến 100

b. In ra màn hình các số nguyên dương nhỏ hơn 100

c. In ra màn hình các số nguyên lẻ nhỏ hơn 100

d. In ra màn hình các số nguyên chẳn có giá trị nằm trong khoảng 2 đến 100

Câu 4: Sử dụng câu lệnh lặp để in ra màn hình tổng các số nguyên dương lẻ nhỏ hơn 100 (lưu ý: chỉ cần viết lệnh không cần viết thành chương trình hoàn chỉnh)