program hldph;
uses crt;
var s,i,n:longint;
begin
write('N= ');
readln(n);
s:=0;
for i:=1 to n do if i mod 2=1 then s:=s+1/i;
write('s= ',s);
readln
end.
chúc bạn mạnh khỏe, có nhiều may mắn và học giỏi
cho mình hay nhất nhé mình cảm ơn bạn nhiều ❤️️❤️️❤️️