Определить назначение программы: 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.

алина11001    2   05.10.2019 12:20    2