2 câu trả lời
uses crt;
var i, n : integer; s : real;
begin
clrscr; s := 1;
write('Nhap so n : '); readln(n);
for i := 1 to n do s := s * i;
write(n,'! = ', s : 2 : 0);
readln
end.
uses crt;
var n:integer;
function giaithua(k:integer):int64;
var i:integer;
begin
giaithua:=1;
for i:=2 to k do
giaithua:=giaithua*i;
end;
BEGIN
clrscr;
write('Nhap n: '); readln(n);
writeln('N! la: ',giaithua(n));
readln
end.
vì đây là bài thường nên cao nhất chỉ được 20! thôi
