cho 6 ví dụ về cấu trúc While ( điều kiện) do ( câu lệnh);

#dduongđzs1tg=))

Vd1: Tìm các số nguyên tố 

while n<>0 do 

  begin

        s:=0;

        for i:=2 to n div 2 do 

        if n mod i=0 then s:=s+1;

        if s=0 then writeln(i);

  end;

Vd2: Đảo ngược 
while n<>0 do 

begin

n:=n div 10;

m:=n mod 10;

s:=s*m

end;

Vd3:  Đếm xem n cs bn chữ số

dem:=1;

while n<>0 do 

begin

dem:=dem+1;

end;

Vd4:

While a>b do

      Begin 

               write(‘a>b’);

               a:=a-1;

      End

Vd5:

While a<=b do a:=a+1; 

Vd6:

n:=1

while (n<=5) do

  begin 

     write(n);

     n:=n+1;

  end;