Viết chương trình tính các tổng sau S= 1/2+1/4+…+1/(2n)

Program tinh_tong;

Uses crt;

Var S,i,n: real;

Begin

Write (‘Nhap n=’); 

Readln (n);

S:=0;

For i:= 1 to n do 

S:= S+ 1/(2*i);

Writeln (‘Tong S la:’, S:7:2);

Readln

End.

CHÚC BẠN HỌC TỐT!