tin8(viết chương trình tính tổng trong turbopascal)

[lonely1999]

[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.

giúp em với, maj kt tiết rồi ạ
viết chương trình tính tổng sau đây:
A=1/(1x3)+1/(2x4)+1/(3x5)...+1/n(n+2)

 

[cuong276]

var s:real;
      n,i:longint;
BEGIN
      write('n='); readln(n);
      s:=0;
      for i:=1 to n do s:=s+1/(n*(n+2));
      writeln('tong la', s:3:2);
      readln
END.