program hldph;
uses crt;
var n,i:integer; s:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+1/(2*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 ❤️️❤️️❤️️