Mọi người giúp mình với: Viết chương trình tính n dãy thừa số, n:=1*2*3*…*n(n cho trước); Giúp mình với :(((

0 bình luận về “Mọi người giúp mình với: Viết chương trình tính n dãy thừa số, n:=1*2*3*…*n(n cho trước); Giúp mình với :(((”

1. Bai

   program BTH;
   Uses Crt;
   Var i,n,t:longint;
   Begin
   clrscr;
   Write(‘Nhap n: ‘);readln(n);
   i:=1;
   for t:=1 to n do
   i:=t*i;
   writeln(‘Tong day so tren la: ‘,i);
   readln;
   end.

   Bình luận

2. Var n, i, kq: LongInt;

   BEGIN

       ReadLn(n);

       kq := 1;

       for i:=2 to n do kq := kq * i;

       WriteLn(kq);

   END.

   Bình luận