- Sử dụng While.. do :

1. S = 2 + 4 + 6 + ... + 20

uses crt;

var i, S : integer;

begin

clrscr;

i := 2; S := 0;

while i <= 20 do

begin S := S + i;

i := i + 2; end;

write('S = ', S);

readln

end.

2. S = 1 + 3 + 5 + 7 + ... + 21

uses crt;

var i, S : integer;

begin

clrscr;

i := 1; S := 0;

while i <= 21 do

begin S := S + i;

i := i + 2; end;

write('S = ', S);

readln

end.

3. S = 1 + 1/2 + 1/3 + 1/4 + ... + 1/20

uses crt;

var i : integer; S : real;

begin

i := 1; S := 0;

while i <= 20 do

begin S := S + 1 / i;

i := i + 1; end;

write('S = ', S : 2 : 3);

readln

end.

$#QLinkVN$

Lần lượt các ảnh luôn nhé!

Có thể thay tên biến "$tong$" thành "`s`" nếu em muốn nhé