Question

Вычислить сумму 1! + 2! + 3! + ... + n! (значение n вводится с клавиатуры; 1 < n ≤ 10).
Решать через While или Repeat

Answer 1

var
i,n,f,s:int64;
begin
read(n);
i:=0;
f:=1;
while i<>n do
 begin
 i:=i+1;
 f:=f*i;
 s:=s+f;
 end;

writeln(s);
end.