Bài 7. Câu lênh lặp

BT

viết chương trình tính tổng s=1+\(\dfrac{1}{1}+\dfrac{1}{2}+\dfrac{1}{3}+.....+\dfrac{1}{N}+\dfrac{1}{N+1}\)

TN
2 tháng 1 2018 lúc 13:23

var n,i:integer;

s:real;

begin

write('n=');readln(n);

s:=0;

for i:=1 to n do s:=s+(1/i)+(1/(i+1));

writeln(' Tong la: ',s:0:1);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
VD
Xem chi tiết
VD
Xem chi tiết
LN
Xem chi tiết
HM
Xem chi tiết
CT
Xem chi tiết
SL
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
TT
Xem chi tiết