Viết chương trình tính tổng S= 1/3+1/5+...+1/n với n đc nhập từ bàn phím

Question

ngochuong · Answer

program phuongt;

uses crt;

var i, n: integer;

s: real;

begin

clrscr;

write(‘Nhap n =’); readln(n);

s:=0;

for i:=3 to n do if i mod 2 = 1 then s:=s+1/i;

write(‘S = ‘, s:2:1);

readln

end.

phuongthuy · Answer

program tinhtong_S;

uses crt;

var n,i:integer;

S:real;

begin

clrscr;

write(‘Nhap so nguyen n: ‘); readln(n);

S:=0;

for i:=3 to n do

if i mod 2=1 then S:=S+1/i;

writeln(‘S= ‘,s:2:2);

readln;

end.

Viết chương trình tính tổng S= 1/3+1/5+…+1/n với n đc nhập từ bàn phím