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