s=20;n=2;

s=20>5 ->Đ-> n:=n+1=>n=2+1=3;s:=s-n=>s=20-3=17;

s=17>5 ->Đ-> n:=n+1=>n=3+1=4;s:=s-n=>s=17-4=13;

s=13>5 ->Đ-> n:=n+1=>n=4+1=5;s:=s-n=>s=13-5=8;

s=8>5 ->Đ-> n:=n+1=>n=5+1=6;s:=s-n=>s=8-6=2;

s=2>5->S->kết thúc

vậy số vòng lặp là:4

giá trị của s=2;

CT: 

s:=20;n:=2;

while S.5 do

begin

 n:=n+1;

 s:=s-n;

end;

(mong dc 5*+hay nhất)

s = 20; n=2

lần 1: s=20>5 `->` n=2+1=3 `->` s=20-3=17

lần 2: s=20>5 `->` n=3+1=4 `->` s=17-4=13

lần 3: s=20>5 `->` n=4+1=5 `->` s=13-5=8

lần 4: s=20>5 `->` n=5+1=6 `->` s=8-6=2

lần 5: s=2<5 `->` dừng vòng lặp

`=>` Chương trình lặp 4 lần, S=2

CHƯƠNG TRÌNH PASCAL:

uses crt;
var n,s: integer;
begin
clrscr;
    s:=20; n:=2;
    while s>5 do begin
        n:=n+1;
        s:=s-n;
    end;
    write('S=',s);
    readln
end.