S=1+1 X 2+1 X 2 X 3 X 4 +...+1 X 2 X 3 X4 X...X N.(N là số nguyên dương nhập từ bàn phím )

1 câu trả lời

uses crt;
var s,i,n,lt:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   lt:=1;
   for i:=1 to n do
      begin
         lt:=lt*i;
         s:=s+lt;
      end;
   writeln('S=',s);
readln
end.

Câu hỏi trong lớp Xem thêm