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. program btsydn;

   uses crt;

     var n, i, j, u: integer;

                  s: real;

   begin

             clrscr;

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

             if n>50 then write(‘n<=50, nhap sai hay nhap lai!’) else

             s:=0

             begin

                    for i:=2 to n+1 do

                    begin

                              u:=1;

                              for j:=1 to i-1 do u:=u*j;

                              s:=s+i/u;

                    end;

                    write(‘S = ‘, s);

             end;

             readln

   end.

   Bình luận