tổng nghịch đảo

uses crt;

var i,n:integer;

s:real;

begin

write('nhap n');readln(n) 

s:=0;

for i:=1 to n do

if (i mod 2=1) then s:=s+1/i;

writeln(s);

end.

tổng nghịch đảo chia hết cho 3

uses crt;

var i,s,n:longint;

begin

write('nhap n');readln(n) 

s:=0;

for i:=1 to n do

if (i mod 3=0) then s:=s+1/i;

writeln(s);

end.

uses crt;
var n,i:longint;
s:real;
begin
readln(n);
for i:=n downto 1 do
if i mod 2=1 then s:=s+1/i;
writeln(s:3:2);
readln
end.

_____________

uses crt;
var n,i:longint;
s:real;
begin
readln(n);
for i:=n downto 1 do
if i mod 3=0 then s:=s+1/i;
writeln(s:3:2);
readln
end.

___________________