Viết chương trình tính tổng S = 1/1+1/3+1/5+1/7+...+1/2n+1(n€N) ( với số n được nhập từ bàn phím )
2 câu trả lời
program oken;
uses crt;
var n,i: integer;
s: real;
begin
clrscr;
write('nhap 1 so bat ky: '); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=1 then
s:=s+1/i;
write('Tong S: ',s:0:3);
readln;
end.
Program ct;
Uses crt;
Var i,n:integer; s:real;
Begin
Clrscr;
Write('nhap n=');readln(n);
S:=0;
For i:=1 to n do
If i mod 2=1 then s:=s+1/i;
Writedln(s);
Readln
End.