cho số nguyên n(n<=50). em hãy lập trình tính tổng như sau : S=2+(3/1.2)+(4/1.2.3)+...+(n+1/1.2.3...n)

0 bình luận về “cho số nguyên n(n<=50). em hãy lập trình tính tổng như sau : S=2+(3/1.2)+(4/1.2.3)+...+(n+1/1.2.3...n)”

1. uses crt;
   var n,i,j:integer;
          s,t:real;
   begin
   clrscr;

   t:=1;
   write(‘Nhap n: ‘);    readln(n);
   for i:=2 to n+1 do
   begin
   for j:=1 to i-1 do
   t:=t*j;
   s:=s+i/t;
   end;
   write(‘Tong la: ‘,s);
   readln;
   end.

   Bình luận

2. prigram tinhtong;

   uses crt;

   var n,i,j:integer;

          s,t:real;

   begin

   clrscr;

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

   s:=0;

   for i:=2 to n+1 do

     begin

       t:=1;

       for j:=1 to i-1 do

          t:=t*j;

       s:=s+i/t;

     end;

   write(‘Tong la: ‘,s);

   readln

   end.

   Bình luận