a)

Thực hiện 6 vòng lặp:

   - Lần 1: j=5, T=100

   - Lần 2: j=10, T=90

   - Lần 3: j=15, T=75

   - Lần 4: j=20, T=55

   - Lần 5: j=25, T=30

   - Lần 6: j=30, T=0

b)

1. While do

program ct;

uses crt;

var j,T:integer;

begin clrscr;

     j:=0; T:=105;

   while T>=20 do

     begin

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

     end;

   write('T= ',T,' va j= ',j);

readln;

end.

2. For do

program ct;

uses crt;

var j,T:integer;

begin clrscr;

     T:=105

   for j:=0 to 30 do

     if j mod 5=0 then T:=T-j;

   write('T= ',T,' va j= ',j);

readln;

end.

Học tốt!