vt chương trình tính các tổng sau S0 = n! = 1*2*...*n
2 câu trả lời
program bai_giai;
uses crt;
var n,s,i:longint;
begin
clrscr;
write('n=');readln(n);
s:=1;
for i:=1 to n do s:=s*i;
write(s);
readln;
end.
Var n,i,x:longint;
Begin
Write('nhap so n:'); readln(n);
X:=1;
For i:=1 to n do x:=x*i;
Write(x);
Readln;
End.