* Thuật toán 1:
- có 4 vòng lặp.
- khi kết thúc chương trình, j:=8; T:=0;
- chương trình:
program kaito;
uses crt;
var j, T: integer;
begin
clrscr;
T:=20;
while T>=6 do begin j:=j+2; T:=T-j; end;
writeln('T = ',T,'j = ',j);
readln
end.
*Thuật toán 2:
- có 1 vòng lặp.
- Khi kết thúc chương trình, j:=3; T:=13;
- chương trình:
program kaito;
uses crt;
var j, T: integer;
begin
clrscr;
T:=10;
while T<= 10 do begin j:=j+3; T:=T+j; end;
writeln('T = ',T,'j = ',j);
readln
end.
CHÚC BẠN HỌC TỐT!!!
