1.
a) Vòng lặp sẽ không thực hiện 6 lần và j=30; t=0
Lần 1: j=0+5=5; t=105-5=100;
Lần 2: j=5+5=10; t=100-10=90;
Lần 3: j=10+5=15; t=90-15=75;
...
Lần 6: j:=25+5=30; t=30-30=0;
b)
uses crt;
var t,j:longint;
begin
clrscr;
j:=0; t:=105;
while t>=20 Do
begin
j:=j+5; t:=t-j;
end;
writeln(t,' ',j);
readln
end.