S=1! +2!+3! ++n! Viết Phương trình Tính tổng thừa

0 bình luận về “S=1! +2!+3! ++n! Viết Phương trình Tính tổng thừa”

1. program oken;
   uses crt;
   var n,i: byte;
       s: real;
   function gt(a: longint): real;
       begin
           if a=1 then
               gt:=1
           else
               gt:= a*(gt(a-1));
       end;
   begin
       clrscr;
       write(‘Nhap so N: ‘); readln(n);{gion han la 32 de hien thi tron ven ket qua}
       for i:=1 to n do
           s:=s+gt(i);
       writeln(‘tong luy thua cua ‘,n,’: ‘,s:0:0);
       readln;
   end.

   Bình luận

2. program ct;

   uses crt;

   var n:integer;

         S:longint;

   function gt(x:longint):longint;

      var i,j:longint;

   begin clrscr;

        j:=1;

      for i:=1 to x do

        j:=j*i;

      exit(j);

   end;

   begin

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

        S:=0;

      for i:=1 to n do

        S:=S+gt(i);

      write(‘Tong S la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận