VCT khi S=1/2+1/4 =1/n in S

uses crt;
var n,i:longint;s:real;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  for i:=1 to n do s:=s+(1/(i*2));
  write('s=',s:4:2);
 readln
end.

#minh gửi code pascal và c++ nhá 

#nếu không hiểu có thể cmt cho mình nhá 

#nhớ vote cho mình 5 sao và tym , ctlhn nhá 

#pascal

program tinhtong;
uses crt;
var n,i : integer;
    s : real;
begin
clrscr;
s:=0;
write('nhap n : ');
readln(n);
for i:=1 to n do
begin
 s:=s+1.0/(2*i);
 end;
 write('co tong den 1/n la : ',s:4:5);
readln;
end.

#c++

#include <bits/stdc++.h>
#define int long long 
using namespace std;

main()
{
 int n,i;
 float s=0;
 cin>>n;
 for(i=1;i<=n;i++)
 {
  s=s+1.0/(2*i);
 }
 cout<<s;
    return 0;

}