Giúp em với ạ viết chương trình tính tổng S=1!+2!+3!+...+N!(với N nhập từ bàn phím nhỏ hơn hoặc bằng 10)

2 câu trả lời

n = int(input())

i = 0

sum = 0

while i < n:

i += 1

sum += i

Bạn có thể print(sum) trong vòng lặp để thấy tổng bắt đầu tăng dần cho đến kết thúc hoặc viết nó ở ngoài vòng lặp để thấy kết quả cuối cùng, chúc bạn thành công! 

uses crt;

var i, n, s, t : longint;

begin

clrscr;

t := 1; s := 0;

write('nhap so n : ');readln(n);

for i := 1 to n do 

begin

t := t * i;

s := s + t;

end;

writeln('tong s = ', s);

readln

end.