Задача: Вычислить сумму факториалов 1!+2!+3!+...n! значение n вводится с клавиатуры
PROGRAM faktoriali; var sum,a,n,i:integer; BEGIN a:=1; sum:=0; ReadLn(n); for i:=1 to n do begin a:=i*a; sum:=sum+a; end; write(sum); END.
Просмотрело: 2217