Viết chương trình, nhập số N nguyên dương (N<=10). Thực hiện phép tính tổng S=1!+2!+3!+...+n!. Cầu người chỉ bài này với ????????

0 bình luận về “Viết chương trình, nhập số N nguyên dương (N<=10). Thực hiện phép tính tổng S=1!+2!+3!+...+n!. Cầu người chỉ bài này với ????????”

1. Program tinh_tong;

   uses crt;

   var n,i:byte;

         S:longint;

   {—CT-con—}

   function gt(k:byte):longint;

   var j:byte;

   begin

          gt:=1;

          for j:=1 to k do gt:=gt*j;

   end;

   {—CT-chinh—}

   BEGIN

          clrscr;

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

          S:=0;

          for i:=1 to n do S:=S+gt(i);

          write(‘S= ‘,s);

          readln;

   end.

          

   Bình luận

2. program phuongt;
   uses crt;
     var n: integer;
   function kt: longint;
   var i, j: integer;
           s, k: longint;
   begin
           if (n>0) and (n<11) then
           begin
                   s:=0;
                   k:=1;
                   for i:=1 to n do
                   begin
                            for j:=1 to i do k:=k*j;
                            s:=s+k;
                            k:=1;
                   end;
                   write(‘S = ‘, s);
           end
           else write(‘Gia tri n vuot qua dieu kien.’);
   end;
   begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           kt;
           readln
   end.

   Bình luận