Cho thuật toán sau: B1: j<= 0; T<= 20; B2: Nếu T < 6 thì chuyển qua B4; B3: j<= j + 2; T <= T – j; B4: in ra kết quả T và j; a, Hãy cho biết, khi thực hiện thuật toán trên, mấy tính sẽ thực hiện bảo nhiêu vòng lặp? Giá trị của T và j là bao nhiêu. b, Viết Đoạn chương trình thế hiển hai thuật toán trên.

a) Khi thực hiện thuật toán trên, máy tính sẽ thực hiện 4 vòng lặp

- Lặp lần 1: j=2, T=18

- Lặp lần 2: j=4, T=14

- Lặp lần 3: j=6, T=8

- Lặp lần 4: j=8, T=0 (Thỏa mãn ĐK T<6)

b) 

program thuattoan;

uses crt;

var T,j:integer;

begin clrscr;

    j:=0; T:=20;

    If T>6 then j:=j+2; T:=T-j;

    write('Gia tri T va j la: ',T:5,j:5)

readln;

end.

Học tốt!

a) Máy tính thực hiện 

`j=0 =>  j=2 =>  T=18`

`j=2 => j=4 => T=14`

`j=4 => j=6 => T=8`

`j=6 => j=8 => T=0`

(Dừng lại `=>` lặp `4` lần)

b)

Program Hotboy;

Uses crt;

Var T,j:integer;

Begin

Clrscr;

 j:=0; T:=20;

 If T>6 then

 j:=j+2; T:=T-j;

Write('T la',T,'j la',j)

Readln;

End.