câu 2: a) tính số lần lặp: 5-1+1=5=> câu lệnh này lặp 5 lần

lần 1: j:=2(gtri j gán ban đầu)+2=4; k:=3(gtri k ban đầu)+ 4(gtri j) = 7;

lần 2: j:=4+2=6; k:=7+6=23;

lần 3: j:=6+2=8; k:=23+8=31;

lần 4: j:=8+2=10; k:=31+10=41;

lần 5: j:=10+2=12; k:=41+12=53;

=>khi thực hiện đủ 5 vòng lặp máy tính sẽ cho ra kết quả S cuối cùng j=12 và k=53

b) lần lặp 1: ta thấy giá trị S ban đầu gán bằng 5,mà 5<20 ->điều kiện đúng,thực hiện câu lệnh-> n:=0(gtri n gán ban đầu)+1=1; S:=5*1=5

Lần lặp 2: ta thấy kết quả S của vòng lặp 1 =5-> 5<20-> điều kiện đúng,thực hiện câu lệnh-> n:=1(gtri n tính ở vòng lặp 1)+1=2; S:=5(gtri S tính ở vòng lặp 1)*2=10

lần lặp 3:ta thấy S ở vòng lặp 2 =10-> 10<20-> đ.kiện đúng,thực thực câu lệnh-> n:=2+1=3; S:=10*3=30.Ta có thể thấy 30>20=> máy báo lỗi=> đoạn lệnh trên chỉ thực hiện đc 2 lần lặp,lệnh writeln('S') cũng lặp lại 2 lần. Và kết quả của S sau 2 lần lặp = 10

câu 3: 

lặp 1 lần 

S= 7

*Viết ct:

Var S,n: integer;

begin

S:=10; n:=2;

while S=> 5 do

begin n:=n+1; S:=S-n end;

writeln('gia tri cua S=',S);

end.