n:=n+3 $\to$ n luôn tăng 

s:=s-n $\to$ s luôn giảm $\to$ điều kiện luôn sai 

$\to$ lỗi lặp vô hạn lần.

* chương trình:

program kaito;

uses crt;

var s, n: integer;

begin

   clrscr;

   while s<10 do begin n:=n+3; s:=s-n; end;

   writeln('S = ',s);

   readln

end.

CHÚC BẠN HỌC TỐT!!!

- Giá trị ban đầu S = 0, n = 0

+ S = 0 < 10 ⇒ n = 0 + 3 = 3 ⇒ S = 0 + 3 = 3

+ S = 3 < 10 ⇒ n = 3 + 3 = 6 ⇒ S = 3 + 6 = 9

+ S = 9 < 10 ⇒ n = 6 + 3 = 9 ⇒ S = 9 + 9 = 18

+ S = 10 = 10 ⇒ Kết thúc

⇒ Máy tính thực hiện 3 vòng lặp

⇒ Giá trị S = 18

- Viết chương trình :

uses crt;

var n, S : integer;

begin

clrscr;

S := 0; n := 0;

while S < 10 do

begin

n := n + 3; S := S - n;

end; write('S = ', S);

readln

end.