Cho thuật toán sau: B1 : j <- 0; t<-100; B2 : nếu t < 30 thì chuyển qua bước B4 B3 : j <- j + 5; t <- t - j B4 : in ra kết quả t và j a, hãy cho biết , khi thực hiện thuận toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp giá trị của t và j là bao nhiêu? b, sử dụng lệnh lặp While...do viết đoạn chương trình thể hiện thuật toán trên

a)

- Thực hiện 5 vòng lặp

- Khi kết thúc: t= 25, j= 25

b)

program Bai_tap_1;

uses crt;

var t,j:integer;

begin clrscr;

     j:=0; t:=100;

   while t>=30 do

     begin

        j:=j+5; t:=t-j;

     end;

   write('t= ',t,' va j= 'j);

readln

end.

a)

- Thực hiện 5 vòng lặp

- Khi kết thúc: t= 25, j= 25

b)

program ct;

uses crt;

var t,j:integer;

begin clrscr;

     j:=0; t:=100;

   while t>=30 do

     begin

        j:=j+5; t:=t-j;

     end;

   write('t= ',t,' va j= 'j);

readln;

end.

Học tốt!