Определите назначение программы:var i,k,m,n: integer; An: real; begin write('Введите число'); readln(n); k:=1; m:=1; for i:=1 to n do begin k:=k*2; m:=m*i end; An:=m*n/k; writeln('An=', An); end.Окно вывода:1 An=0.52An=13An=2.254An=65An=18.5 и т.д.
Программа вычисляет элементы ряда, который можно задать формулой общего члена следующей формулой: An = (n*n!)/2^(n), где 2^(n) - это 2 в степени n.