a) Khi thực hiện thuật toán trên máy tính sẽ thức hiện 10 vòng lặp và giá trị của T=10 và j=0 

b) Bạn tự khai báo tên CT vs Biến nha còn không bt mình làm cho

      j : =0

      T :=10

While T>= 20 do

begin j := j + 5 T :=T - j ;

end;

Write (T);

Writeln;

Write(j);

Readln;

End.

2) "Không có câu nào đúng hết" Vì: 

A. Sai vì nếu có hai câu lệnh trở lên giữa "while...do" phải có "begin" và "end;" nếu không có vòng lắp sẽ kiểm tra 2 điều kiện cùng 1 lúc mà chưa kiểm tra trường hợp nên dễ bị treo máy.

B. Sai vì S luôn luôn bé hơn 10 (1<10) nên chương trình sẽ ghi S vô hạn.

C. Sai vì n cũng giống lỗi câu B (2<5) nên cũng sẽ lặp vô hạn lần.

_____________Chúc bạn học tốt____________

1.

a) Vòng lặp sẽ không thực hiện 0 (không thực hiện) và j=0; t=10;

Mới vào t đã thõa mãn điều kiện t<20 nên không thực hiện.

b)

uses crt;
var t,j:longint; 
begin
clrscr;
   j:=0; t:=10;
   while t>=20 Do 
   begin
      j:=j+5; t:=t-j; 
   end;
   writeln(t,' ',j);
readln
end.

2. Không có đáp án đúng.

A. S=S+i; thiếu dấu ':' → S:=S+i;

i= i+1 thiếu dấu ':' và dấu ';' → i:=i+1;

B. S=0 thiếu dấu ':' và dấu ';' → S:=0;

S=S+i; thiếu dấu ':' → S:=S+i;

i= i+1 thiếu dấu ':' → i:=i+1;

C. N=2 thiếu dấu ':' và dấu ';' → N:=2;

D. Không đúng