1/ Nhập vào 1 số nguyên dương N. Viết chương trình tính tổng nghịch đảo các số lẻ từ 1 đến N
S=1+1/3+1/5+1/7…
vd Nhap N=3
Tong la 1.33
1/ Nhập vào 1 số nguyên dương N. Viết chương trình tính tổng nghịch đảo các số lẻ từ 1 đến N
S=1+1/3+1/5+1/7…
vd Nhap N=3
Tong la 1.33
program bt;
uses crt;
var S:real;
i:integer;
begin clrscr;
S:=0;readln(n);
for i:=1 to n do
if i mod 2<>then S:=S+1/i;
writeln(S);
readln;
end.