a) j=0;t=105.
Câu này sử dụng vòng lặp repeat until.
t<20 (KTM): j=j+5=0+5=5; t=t-j=105-5=100
t<20 (KTM): j=j+5=5+5=10; t=t-j=100-10=90
t<20 (KTM): j=j+5=10+5=15; t=t-j=90-15=75
t<20 (KTM): j=j+5=15+5=20; t=t-j=75-20=55
t<20 (KTM): j=j+5=20+5=25; t=t-j=55-25=30
t<20 (TM): j=j+5=25+5=30; t=t-j=30-30=0
$\to$ thực hiện 6 vòng lặp và giá trị của $(t;j)=(0;30)$
b)
uses crt;
var t,j:longint;
begin
clrscr;
j:=0;t:=105;
repeat
j:=j+5;
t:=t-j;
until t<20;
write(t,' ',j);
readln;
end.
