Question

написать программу вычисления выражения с помощью цикла for 1!+2!+3!+...+n! 
уже не соображаю..

Answer 1

$var i,n,s:integer; \ function fact(a:integer):integer; \ begin \ if a<=1 then fact:=1 \ else fact:=a*fact(a-1); \ end; \ \ begin \ writeln('Vvedite n '); \ readln(n); \ for i:=1 to n do s:=s+fact(i); \ writeln('Summa ravna ',s); \ end.$