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.