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

Huỳnh Nhật

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)}\)

Minh Lệ
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)
Nguyễn Trung Hiếu
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ự
Cold Wind
Xem chi tiết
Huỳnh Thị
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
Krissy
Xem chi tiết
Sherry Lê
Xem chi tiết
Nitrox vntm
Xem chi tiết
T__T
Xem chi tiết
Lê Hoàng Thảo Nhi
Xem chi tiết