Question

Cho biết giá trị của S, n và số lần lặp trong thuật toán sau:

B1: S <- 5, n <- 5.

B2: Nếu S > 50, chuyển tới B4.

B3: S <- S +n, n <- n+2

B4: Thông báo S, kết thúc.

Viết đoạn chương trình cho thuật toán trên.

Answer 1

giá trị của S = 65

giá trị của n = 17

số lần lặp = 6

Chương trình:

program an_danh1;
uses crt;
var s,n:integer;
begin
clrscr;
s:= 5; n:=5;
while s <= 50 do
begin
s:= s + n;
n:= n + 2;
end;
write('S = ',s);
readln
end.