{n=3} { oo --------- \ n \ k / ----------- / k! --------- k=1} Program knkfuc; const n=3; var e,s:real; i,k:integer; begin k:=0; while s>0.001 do begin s:=1 {s-результат выполнения за 1 этап} k:=k+1; for i:=1 to k do begin do s:=s/i; for j:=1 to 10 do s:=s*k; e:=e+s; {e-итоговая сумма} end; {while} writeln(e); end. {n=3 e=13.6}