Bài 1: Viết chương trình nhập số tự nhiên N. Tính N!

0 bình luận về “Bài 1: Viết chương trình nhập số tự nhiên N. Tính N!”

1. Uses crt;

   var i,n,s: integer;

   begin

   clrscr;

     s:=1;

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

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

     write(n,’! = ‘, s);

   readln;

   end.

   Bình luận