Viết chương trình Tính tổng S= 1/ 1.3 + 1/2.4 + 1/3.5+… + 1/n(n+2) Các mod giúp e

0 bình luận về “Viết chương trình Tính tổng S= 1/ 1.3 + 1/2.4 + 1/3.5+… + 1/n(n+2) Các mod giúp e”

1. Program Hotboy ;

   Uses crt;

   Var i,n:integer;

   S:real;

   Begin

   Clrscr;

   S:=0;

   Write(‘nhap n’);

   Readln(n);

   For i:=1 to n do

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

   Write(‘tong can tim la’,S:1:3);

   Readln

   End.

   Bình luận

2. uses crt;

   var i,n:integer; S:real;

   begin

   clrscr;

   write(‘Nhap n: ‘); readln(n);

   for i:=1 to n do S:=S+1/(i*(i+2));

   writeln(‘Tong la: ‘,S:3:1);

   readln

   end.

   Bình luận