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

HN

Viết chương trình tính tổng \(\frac{2}{1.3}\)+\(\frac{2}{3.5}\)+\(\frac{2}{5.7}\)+.....+\(\frac{2}{n.\left(n+2\right)}\)

ML
24 tháng 4 2019 lúc 20:21

Lời giải :

program hotrotinhoc ;

var T : real ;

i,n : integer ;

begin

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

S:=0;

for i:= 1 to n do

if i mod 2=1 then

S:=S+2/(i*(i+2));

write('Tong la :',S);

readln

end.

Bình luận (0)
NH
24 tháng 4 2019 lúc 20:21

uses crt;
var a:array[1..10000000] of longint;
i,n,d:longint;
s:real;
begin
clrscr;
write('Nhap n la ');readln(n);
for i:=1 to n do begin
if i mod 2<>0 then
s:=s+(2/(i*(i+2))); end;
write('Tong la ',s:0:2);
readln
end.

Bình luận (2)

Các câu hỏi tương tự
CW
Xem chi tiết
HT
Xem chi tiết
SK
Xem chi tiết
NN
Xem chi tiết
H24
Xem chi tiết
SL
Xem chi tiết
NV
Xem chi tiết
H24
Xem chi tiết
LN
Xem chi tiết