`@`Em hãy cho biết thuật toán mô tả trên thực hiện mấy vòng lặp?

+Vòng lặp 1: S←3+n ←3+2 ← 5

Vì S=5 nên chuyển đến bước 4 (Thông báo S và kết thúc thuật toán)

`=>` Thuật toán trên thực hiện 1 vòng lặp

`@` Kết thúc giá trị S bằng mấy?

`=>` S=5 (đã tính ở trên)

`@`Viết chương trình mô tả thuật toán:

Program baitap;
Uses crt;
Var S,n:integer;
Begin
Clrscr;
S:=0; n:=2;
While S<5 do S:=3+n;
Writeln('S=',S);
Readln
End.

_________________________

Đã test code

- Thuật toán trên thực hiện 1 vòng lặp

- Khi kết thúc giá trị S = 5

* * * Giải thích

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

+ S = 0 >= 5 ⇒ Sai ⇒ S = 3 + n = 3 + 2 = 5

+ S = 5 >= 5 ⇒ Đúng ⇒ Chuyển tới bước 4

+ Thông báo S, kết thúc

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

uses crt;

var S, n : integer;

begin

clrscr;

S := 0; n := 2;

while S < 5 do S := 3 + n;

write('S = ', S);

readln

end.