Question

a/. Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của S bằng bao nhiêu?

b/. Viết chương trình bằng Pascal để mô tả thuật toán đó.

B1: S ! 20, n! 1;

B2: Nếu S ≥ 5, chuyển B4.

B3: n ! N + 1, S ! S - n và quay lại B2.

B4: Thông báo S và kết thúc thuật toán.

 

 

 

Answer 1

a: Thuật toán sẽ thực hiện 5 vòng lặp

Kết thúc thì S=0

b: uses crt;

var i,s,n:integer;

begin

clrscr;

s:=20;

n:=1;

while (s>=5) do 

begin

n:=n+1;

s:=s-n;

end;

writeln(s);

readln;

end.