2 câu trả lời
program C;
uses crt;
var n,i,g:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
g:=1;
for i:=1 to n do g:=g*i;
write(n,'!=',g);
readln;
end.
Program Hello;
var n,i:longint;
f:qword;
begin
readln(n);
for i:= 1 to n do
f:= f * i;
writeln(f);
end.
