При регистрации в компьютерной системе каждому пользователю выдается пароль, состоящий из 6 символов и содержащий только символы из 7-буквенного набора h, o, p, c, t, y, x.в базе данных для хранения сведений о каждом пользователе отведено одинаковое целое число байт, при этом для хранения сведений о 100 пользователях используется 1400 байт. для каждого пользователя хранятся пароль и дополнительные сведения. для хранения паролей используют посимвольное кодирование, все символы кодируются одинаковым и минимально возможным количеством бит.сколько бит отведено для хранения дополнительных сведений о каждом пользователе? в ответе укажите только число.

Отведено 81600 бит

Const   gl = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']; var   w1, w2: string;   m: set of char;   c: char;   i: integer; begin   writeln('введите первое "слово"');   readln(w1);   writeln('введите второе "слово"');   readln(w2);   m : = [];   w1 : = lowercase(w1); w2 : = lowercase(w2);   for i : = 1 to length(w1) do       if w1[i] in gl then include(m, w1[i]);   for i : = 1 to length(w2) do       if w2[i] in m then exclude(m, w2[i]);     writeln('гласные, присутствующие в первом слове и отсутствующие во втором: ');   foreach c in m do write(c, ' ');   writeln end. тестовое решение: введите первое "слово" дай, джим, на счастье лапу мне! введите второе "слово" сергей есенин гласные, присутствующие в первом слове и отсутствующие во втором: а у

Const n = 100; var a: array[1..n] of integer; i, countp, counts, countz: integer; begin for i : = 1 to n do begin a[i] : = random( -20, 20 ); write ( a[i], ' ' ); if a[i] > 0 then inc(countp); if a[i] < 0 then inc(counts); if a[i] = 0 then inc(countz); end; writeln(); writeln('количество положительных чисел: ', countp); writeln('количество отрицательных чисел: ', counts); writeln('количество нулей: ', countz); // выводим количество нулей (для проверки, что в сумме у нас 100 элементов) end.