Nhập vào số nguyên dương N, viết chương trình tổng sau
S=S+ 1/3+1/5+….+1/N
ví dụ 1: Nhap N=3
Tong la 1.3 // (1+1/3)
ví dụ 2: Nhap N = 6
Tong la 1.53 // (1+1/3+1/5)
giúp mk vs
Nhập vào số nguyên dương N, viết chương trình tổng sau
S=S+ 1/3+1/5+….+1/N
ví dụ 1: Nhap N=3
Tong la 1.3 // (1+1/3)
ví dụ 2: Nhap N = 6
Tong la 1.53 // (1+1/3+1/5)
giúp mk vs
program tong;
uses crt;
var N,i: integer;
S: real;
Begin
write(‘Nhap N: ‘); readln(N);
S:=1;
for i:=3 to n do
if i mod 2<>0 then S:=S+1/i;
write(‘S = ‘,S:2:3);
readln
End.
program S_tong;
uses crt;
var n,i:integer;
S:real;
begin
clrscr;
write(‘Nhap N = ‘);
S:=0;
for i:=1 to n do
if i mod 2=1 then S:=S+1/i;
write(‘Tong la ‘,s:2:2);
readln;
end.