Bài 5: Nhập vào số nguyên n,viết chương trình tính n! n!=1*2*3…*n

0 bình luận về “Bài 5: Nhập vào số nguyên n,viết chương trình tính n! n!=1*2*3…*n”

1. program phuongt;

   uses crt;

     var n, s: integer;

   begin

             clrscr;

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

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

             write(‘n! = ‘, s);

             readln

   end.

   Bình luận

2. program giaithua;

   uses crt;

   var n:byte;

          gt:real;

   begin

   clrscr;

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

   gt:=1;

   for i:=2 to n do

    gt:=gt*i;

   write(n!= ‘,gt:3:0);

   readln

   end.

   Bình luận