Lập trình Pascal: Tính n giai thừa
- Thứ năm - 05/12/2019 11:31
- In ra
- Đóng cửa sổ này
Viết chương trình Pascal: Tính n!
Program TINH_N_GIAI_THUA;
Uses crt;
Var i,n,gt:integer;
Begin
Clrscr;
Writeln(' TINH N GIAI THUA:');
Writeln('----------------------------------');
Write('Nhap n ='); readln(n);
gt:=1;
For i:=1 to n do
gt:=gt*i;
Writeln(n, '!=',gt);
Readln;
End.