Viết chương trình có sử dụng hàm để tính tổng sau :S=1!+2!+...!+n! Với n>2, nguyên dương nhập từ bàn phím . Xuất kết quả tính đc ra màng hình Mik c.ơn nhiều!

Tham khảo chương trình :

`@` Pascal `:`

uses crt;
var
    n,sum : int64;
    i : longint;
    function gt( a : int64 ) : int64;
        var j : longint;
        begin
        gt := 1;
        for j := a downto 1 do gt := gt*j; 
        end;
begin
clrscr;
    read(n);
    for i := 1 to n do inc(sum,gt(i));
    writeln(sum);
end.

*Giải thích sơ :

*Ta dùng kiểu dữ liệu real (thực cho lớn tí), sau đó in ra với kết quả :0:0 nhé

- Đệ quy ; nói một cách dễ hiểu hơn là giải một bài toán nhỏ hơn nhưng dễ hơn để xử lý bài lớn hơn

- Đặc trưng của đệ quy là tự gọi chính nó

- Xét ra bài tính giai thừa, ta xét `4! = 3! 4 =2!.3.4=1.2.3.4`

`=>` Rút ra kết luận ; để tính `n!` thì ta phải tính `(n-1)!` trước

- Hoặc ta liên tưởng tới cái mỏ neo, cái neo là cái trên cùng để cố định, bài toán cần giải quyết độ khó giảm dần

// Code như cái dưới không tối ưu, chỉ tham khảo

*Pascal :

uses crt;
  var n, i: longint ;
      s : extended ;
 function giai_thua(n:longint):real ;
     begin
    if (n=0) then exit(1); // cái neo
    exit(n*giai_thua(n-1)); // sợi dây
     end ;
begin
    clrscr;
    readln(n);
    
    s := 0 ;
    for i := 1 to n do s := s + giai_thua(i);
    write(s:0:0);
end .