hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? khi kết thúc giá trị S bằng bao nhiêu? viết chương trình pascal thể hiện thuật toán bước 1 s:=0,n:=0 bước 2 nếu s>=10, chuyển tới bước 4 bước 3 n:=n+3, s:= s-n quay lại b2 bước 4 thông báo S và kết thúc thuật toán giúp em với mai em thi r ạ

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.