* chương trình:

uses crt;

var j,t: integer;

begin

j:=0; t:=1;

while t<10 do

begin

j:=j+2; t:=t+j;

end;

writeln(t);

write(j);

readln;

end.

* sau khi thuật toán kết thúc, t = 13, j = 6

* giải thích:

lúc đầu j=0, t=1

- kiểm tra <điều kiện> (đúng, vì 1<10)

- lặp lần 1:

⇒ <câu lệnh> được thực hiện

⇒ j = j+2 = 0+2 = 2

⇒ t = t+j = 1+2 = 3

- kiểm tra <điều kiện> (đúng, vì 3<10)

- lặp lần 2:

⇒ <câu lệnh> được thực hiện

⇒ j = j+2 = 2+2 = 4

⇒ t = t+j = 3+4 = 7

- kiểm tra <điều kiện> (đúng, vì 7<10)

- lặp lần 3:

⇒ <câu lệnh> được thực hiện

⇒ j = j+2 = 4+2 = 6

⇒ t = t+j = 7+6 = 13

- kiểm tra <điều kiện> (sai, vì 13>10)

⇒ <câu lệnh> bị bỏ qua, lệnh lặp kết thúc

vậy sau khi kết thúc thuật toán, t = 13, j = 6

bonus:

uses crt;

var i1,i2,s1,s2,t1,t2: integer;

begin

clrscr;

s1:=0; s2:=0; i1:=1; i2:=2;

while s1<=100 do

begin

s1:=s1+i1;

i1:=i1+2;

t1:=t1+1;

end;

while s2<=100 do

begin

s2:=s2+i2;

i2:=i2+2;

t2:=t2+1;

end;

writeln('can cong ',t1,' so le dau tien de co tong nho nhat lon hon 100');

writeln('can cong ',t2,' so chan dau tien chan co tong nho nhat lon hon 100');

readln;

end.