Viết chương trình con tính N!= 1.2.3…N ( mng giúp em với em đang cần gấp lắm ạ)

0 bình luận về “Viết chương trình con tính N!= 1.2.3…N ( mng giúp em với em đang cần gấp lắm ạ)”

1. Program Hotboy ;

   Uses crt;

   Var n,i ,s : Real;

   Begin

   Clrscr;

   S:=1;

   Write(‘nhap so n’); 

   Readln(n);

   For i:= 1 to n do 

   S:=S*i;

   Writeln(‘N!’,S);

   Readln

   End.

   Bình luận

2. Program BTH;
   uses crt;
   var i,n:longint;
   s:int64;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           s:=1;
           For i:=1 to n do s:=s*i;
           writeln(‘Tich day so tren la: ‘,s);
           readln;
   end.

   Bình luận