B1:

Lần 1 : j:=j +2=> j=2 + 2 = 4

Lần 2 : j:=j + 2=> j=4 + 2 = 6

Lần 3 : j:=j+2=>j=6+2 = 8

Lần 4 :j:=j+2=>j=8+2=10

Lần 5:j:=j+2=>j=10+2=12

=>Sau 5 vòng lặp j=12

B2:
 Uses Crt;

 Var i,t : integer;

 Begin

  Clrscr;

  t:=0;i:=0;

  While t<100 do 
   Begin

    i:=i+1;

    t:=t+i;

   End;

  Writeln('Tong la : ',t);

  Readln

 End,

Bài 1 :

Lần 1 : i = 1 ⇒ j = j + 2 =   2 + 2 =   4

Lần 2 : i = 2 ⇒ j = j + 2 =   4 + 2 =   6

Lần 3 : i = 3 ⇒ j = j + 2 =   6 + 2 =   8

Lần 4 : i = 4 ⇒ j = j + 2 =   8 + 2 = 10

Lần 5 : i = 5 ⇒ j = j + 2 = 10 + 2 = 12

⇒ Sau khi thực hiện đoạn chương trình j = 12

Bài 2 :

uses crt;

var n, S : integer;

begin

clrscr;

n := 1; S := 0;

while S <= 100 do

begin S := S + n;

n := n + 1; end;

write('S = ', S);

readln

end.