chương trình tính tích N số tự nhiên đầu tiên với N đc nhập từ bàn phím N!=1.2.3…n chụp pascal vào nhaaa làm đuk nha mim đang cần

0 bình luận về “chương trình tính tích N số tự nhiên đầu tiên với N đc nhập từ bàn phím N!=1.2.3…n chụp pascal vào nhaaa làm đuk nha mim đang cần”

1. *Đối với for…to…do:
   Uses crt;
   Var i,N :integer;
   T:longint;
   Begin
   Writeln(‘Nhap N vao:’); Readln(n);
   T:=1;
   For i:=1 to n do T:= T*i;
   Write(‘tich cua ‘,N,’ so tu nhien dau tien la:’,T);
   Readln
   End.
   *Đối với While…do:
   Uses crt;
   Var i,N :integer;
   T:longint;
   Begin
   Write(‘Nhap N vao:’); Readln(n);
   T:=1;  i:=0;
   While i<=n do
   begin
   i:=i+1;
   T:=T*i;
   End;
   Write(‘tich cua ‘,N,’ so tu nhien dau tien la:’,T);
   Readln
   End.
   *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Thanks so much ;333
   p/s: Chưa yên tâm thì có thể check lại.Hỏi và đáp, comment bên dưới 😀

   Bình luận

2. uses crt;

   var i,n,gt: integer;

   begin

   clrscr;

   gt:=1;

   write (‘nhap N: ‘);  readln (n);

   for i:=1 to n do gt:=gt*i;

   writeln (‘N!= ‘,gt);

   readln;

   end.

   Bình luận