var s, i: real;
begin
    s := 0;
    for i := 1 to 50 do
        s := s + 1/i;
    writeln('Tong s = ', s:0:2);
end.

for i:= 1 to 50 do S = S + 1/i;

while..do

Program HOC24;

var i: integer;

s: real;

begin

i:=1;

while i<=50 do

begin

s:=s+i;

i:=i+1;

end;

write('S = ',s:6:2);

readln

end.

Var i:integer;

s:real;

Begin

For i:=1 to 50 do

s:=s + 1/i;

Write('Tong la ',s:10:2);

Readln;

End.

Câu 1: var a:array[1..100]of integer;

Câu 2: for i:=1 to 20 do write(i:4);

+)Vòng lặp thứ nhất: lặp khi i=1, cộng giá trị hiện tại của S với i, ta có S = 0 + 1 = 1.

+)Vòng lặp thứ hai: lặp khi i=2, cộng giá trị hiện tại của S với i, ta có S = 1 + 2 = 3.

+)Vòng lặp thứ ba: lặp khi i=3, cộng giá trị hiện tại của S với i, ta có S = 3 + 3 = 6.

+)Vòng lặp thứ tư: lặp khi i=4, cộng giá trị hiện tại của S với i, ta có S = 6 + 4 = 10.

+)Vòng lặp thứ năm: lặp khi i=5, cộng giá trị hiện tại của S với i, ta có S = 10 + 5 = 15.

Sau khi kết thúc vòng lặp, giá trị hiện tại của i sẽ là 6 và giá trị hiện tại của S sẽ là 15.

Chuyển thành while..do

s:=0; i:=1;

while i<=n do

begin

s:=s+i/2;

i:=i+1;

end;