Viết chường trình tính n!(n giai thừa).giúp e vs mn
2 câu trả lời
Code này chỉ đúng khi và chỉ khi $n\leqslant 20$
uses crt;
var n, i: longint;
res: qword;
begin
clrscr;
readln(n);
res:=1;
for i:=2 to n do res:=res * i;
writeln(res);
readln;
end.
program bai_giai;
uses crt;
var n,i,s:longint;
begin
clrscr;
write('n=');readln(n);
s:=1;
for i:=1 to n do s:=s*i;
write('giai thua n=',s);
readln;
end.
