Sử dụng câu lệnh lặp for…do để viết chương trình tính và in ra màn hình N giai thừa ( với N nhập từ bàn phím)

0 bình luận về “Sử dụng câu lệnh lặp for…do để viết chương trình tính và in ra màn hình N giai thừa ( với N nhập từ bàn phím)”

1. uses  crt;
   var i,n,d:Integer;
   begin
   readln(n);d:=1;
   for i:=1 to n do
   d:=d*i;
   writeln(d);
   end.

   Bình luận

2. program oken;

   uses crt;

   var n,i,gt: longint;

   begin

   clrscr;

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

   gt:=1;

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

   writeln(n,’!: ‘,gt);

   readln;

   end.

   Bình luận