Вопрос: к чему из комбинаторики относится поставленная ? и к какому виду? (пр. размещение с повторами и т.п.) если можете написать программу - буду , но это уже больше как дополнение. : написать программу, которая генерирует слова, содержащие k букв (от «а» до «е»), допускающие повторения букв, но никакая буква не должна встречаться более k-2 разс++)

Дано: n=26*2+10=62 символа кол-во пользователей - 30 всего байт - 870 байт кол-во символов на один пароль - 10 символов решение: воспользуемся формулой  , где n - кол-во символов в алфавите, i - информационная емкость одного символа(кол-во бит на 1 символ) тогда: ищем ближайшие степени двойки: берем 2^6, так как в 2^5 не влезет 62 символа. в итоге i=6 бит определим кол-во бит на один пароль: 6*10=60 переведем в байты, округляя в большую сторону: 60/8=7,5 ≈8 байт определим кол-во байт на 1 пользователя: 870/30=29 байт из этих 29 байт 8 байт отведено на пароль, остальное - дополнительные сведения. тогда: 29-8=21 байт - дополнительные сведения ответ: 21

//    решается длинной  арифметикой var       a,b,c: string;       i, s: longint; procedure sum(var a, b: string); var i, p, c1,c2: longint; begin       while (length(a) < length(b)) do a : = '0' + a;       while (length(b) < length(a)) do b : = '0' + b;       p : = 0;       for i : = length(a) downto 1 do begin             c1 : = ord(a[i]) - 48;             c2 : = ord(b[i]) - 48;             a[i] : = chr(48 + (c1 + c2 + p)mod 10);             p : = (c1 + c2 + p) div 10;         end;       if (p > 0) then a : = chr(p + 48) + a; end; begin       a: = '2013';       b: = '2014';       for i : = 3 to 2014 do begin             sum(a, b);             c : = a; a : = b; b : = c;         end;       writeln(c);       s : = 0;       for i : = 1 to length(c) do             s : = s + ord(c[i]) - 48;       writeln('сумма цифр числа = ', s); end.