Tin học viết chương trình

[Mochida]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

TÍNH TỔNG S=1/(1.3)+1/(2.4)+1/(3.5)+...+1/n(n+2)
xin lỗi làm phiền nhưng mik rất cần bik câu trả lời bài này.Vui lòng giúp mik!!! Thanks nhiều )))

 

[Ray Kevin]

var s:real; i,n:integer;
begin
   write('n='); readln(n); s:=0;
   for i:=2 to n+1 do s:=s+1/(i-1)/(i+1);
   writeln('S=',s:6:2);
   readln
end.

 

[Hoàng Công Minh]

PROGRAM ct;
VAR i,n: INTEGER;
s: REAL;
BEGIN
write('Nhap n:'); readln(n);
s:= 1;
FOR i:= 1 TO n DO
s:= s + 1/(i*(i+2));
write('Tong =',s:5:2);
readln
END.

 

[Mochida]

write('Tong =',s:5:2);

sao tổng s là vầy??mik k hỉu lắm

 

[Hoàng Công Minh]

sao tổng s là vầy??mik k hỉu lắm

Cậu cứ viết phương trình này vào rồi sẽ chạy được

 

[Mochida]

mik chạy r bạn nhưng mà nó ra kết quả k đuk so vs máy tính mik bấm!!

 

[Hoàng Công Minh]

mik chạy r bạn nhưng mà nó ra kết quả k đuk so vs máy tính mik bấm!!

free pascan sẽ không giống hoàn toàn cậu nhé

 

[Mochida]

ak mik hỉu r cảm ơn cậu nha

 

[Hoàng Công Minh]

ak mik hỉu r cảm ơn cậu nha

Học tốt