Câu 1 :

uses crt;

var i, S : integer;

begin

clrscr;

S := 0;

for i := 0 to 49 do S := S + i;

write('Tong 50 so dau tien = ', S);

readln

end.

Câu 2 :

- Chương trình thực hiện 6 vòng lặp

- Giá trị S = 22

* * * Giải thích :

- Giá trị ban đầu S = 1, i = 0

+ S < 20 ⇒ 1 < 20 ⇒ Điều kiện đúng

⇒ i = i + 1 = 0 + 1 = 1

⇒ S = S + i = 1 + 1 = 2

⇒ Lần lặp thứ 1

+ S < 20 ⇒ 2 < 20 ⇒ Điều kiện đúng

⇒ i = i + 1 = 1 + 1 = 2

⇒ S = S + i = 2 + 2 = 4

⇒ Lần lặp thứ 2

+ S < 20 ⇒ 4 < 20 ⇒ Điều kiện đúng

⇒ i = i + 1 = 2 + 1 = 3

⇒ S = S + i = 4 + 3 = 7

⇒ Lần lặp thứ 3

+ S < 20 ⇒ 7 < 20 ⇒ Điều kiện đúng

⇒ i = i + 1 = 3 + 1 = 4

⇒ S = S + i = 7 + 4 = 11

⇒ Lần lặp thứ 4

+ S < 20 ⇒ 11 < 20⇒ Điều kiện đúng

⇒ i = i + 1 = 4 + 1 = 5

⇒ S = S + i = 11 + 5 = 16

⇒ Lần lặp thứ 5

+ S < 20 ⇒ 16 < 20 ⇒ Điều kiện đúng

⇒ i = i + 1 = 5 + 1 = 6

⇒ S = S + i = 16 + 6 = 22

⇒ Lần 6

+ S < 20 ⇒ 22< 20 ⇒ Sai ⇒ Kết thúc

`1)`

S=0
for i in range (0,49) :
    S=S+i 
print("tổng của 50 số tự nhiên đầu tiên: ",S)

`2)`

Vòng lặp thực hiện 6 vòng lặp vì

`S=1;i=0`

`S<20?->1<20->đúng`

`i=i+1=0+1=1`

`S=S+i=1+1=2`

`->S=2;i=1`

`S<20?->2<20->đúng`

`i=i+1=1+1=2`

`S=S+i=2+2=4`

`->S=4;i=2`

`S<20?->3<20->đúng`

`i=i+1=2+1=3`

`S=S+i=4+3=7`

`->S=7;i=3`

`S<20?->4<20->đúng`

`i=i+1=3+1=4`

`S=S+i=7+4=11`

`->S=11;i=4`

`S<20?->4<20->đúng`

`i=i+1=4+1=5`

`S=S+i=11+5=16`

`->S=16;i=5`

`S<20?->15<20->đúng`

`i=i+1=5+1=6`

`S=S+i=16+6=22`

`->S=22;i=6`

`S<20?->22<20->Sai`

`S=22`

`\text{Vì mỗi lần lặp, i tăng lên 1 đơn vị nên ta có thể xét giá trị của i là số lần lặp của vòng lặp}`

`\text{Số vòng lặp của vòng lặp là: }6`