A/ 1A 2D 3B 4A 5A 6C

B/

Câu 7: 

A) Sai, sửa thành for i:=1 to 100 do... hoặc là for i:=100 downto 1 do...

B) Sai, sửa thành for i:=1 to 10 do...

C) Sai, sửa thành while X=10...

D) Sai, sửa thành X:=X+5;

Câu 8: 

Cú pháp của lệnh lặp với số lần chưa biết trước: while <điều kiện> do <câu lệnh>;

while, do là từ khoá

<điều kiện> thường là biểu thức logic.

Cách hoạt động: Trong khi điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì câu lệnh không thực hiện nữa.

Câu 9:

uses crt;
var S,t,i:integer;
begin
   clrscr;
   write('Nhap t: '); readln(t);
   for i:=1 to t do S:=S+i;
   write('Tong la: ',S);
   readln
end.

A/ 

1A 2D 3B 4A 5A 6C

B/

Câu 7: 

A) Sai, đổi thành for i:=1 to 100 do hoặc là for i:=100 downto 1 do

B) Sai, đổi thành for i:=1 to 10 do...

C) Sai, đổi thành while X=10...

D) Sai, đổi thành X:=X+5;

Câu 8: 

Cú pháp của lệnh lặp với số lần chưa biết trước: while <điều kiện> do <câu lệnh>;

while, do là từ khoá

<điều kiện> thường là biểu thức logic.

Cách hoạt động: Trong khi điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì câu lệnh không thực hiện nữa.

Câu 9:

program Tin_hoc;

uses crt;
var t,n,i:integer;
begin
clrscr;

write('Nhap t: '); readln(t); n:=0;
for i:=1 to t do n:=n+i;
write('Tong la: ',n);
readln;
end.