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
ảnh kèm theo để mn dễ hiểu nha
uses crt; var n,i:integer;s:real; begin clrscr; write('Nhap n = '); readln(n); s:=0; for i:=1 to n do if i mod 2<>0 then s:=s+1/i; write('Tong la: ',s:2:2); readln; end.