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!