Ví dụ 6:

begin

       S:=0;

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

       write(S);

       readln;

end.

Ví dụ 7:

begin

       S:=0;

       for i:=1 to 15 do if i mod 2<>0 then S:=S+1/i;

       write(S);

       readln;

end.

Ví dụ 8:

begin

       S:=0;

       for i:=2 to 14 do if i mod 2=0 then S:=S+1/i;

       write(S);

       readln;

end.

Ví dụ 9:

begin

       S:=0;

       for i:=5 to 21 do if i mod 2<>0 then S:=S+1/i;

       write(S);

       readln;

end.

phần khai báo phần thân phần xuât thì bạn tự làm còn mình chỉ viết ý để làm thôi

vd6: For i:=1 to 17 do S:=S+1/i;

vd7: for i:=1 to 19 do if i mod 2=1 then S:=S+1/i;

vd8:FOr i:=2 to 14 do if i mod 2=0 then S:=S+i;

vd9:For i:=5 to 21 do if i mod 2=1 then S:=S+i;