Для алфавита нужно выделить 5 бит на 1 символ
т.к.2^4=16 символов - мало
2^5=32
т.к. всего в пароле 15 символов то весить он будет
15*5=75 бит
1 пароль по условию кодируется минимально возможным целым количеством байт
75/8=9,375
т.е. для хранения пароля нужно 10 байт
Один пароль "весит" 10 байт.
У нас — 20 пользователей (и 20 паролей соответственно).
Следовательно, они "весят" 10х20 = 200 байт.
Для пользователей выделено дополнительно 10 байт, т.е. еще 200 байт на всех
т.е. для хранения сведений нужно 200+200 байт 400 байт
var i,k: integer;
begin
i:=2;
k:=round(sqrt(n));
while ((n mod i)<>0) and (i<=k) do
i:=i+1;
simpl:=(i>k)
end;
// основная программа
var n: integer;
begin
write('простое число: '); readln(n);
repeat
n:=n+1;
until simpl(n);
writeln('следующее простое: ',n);
end.
простое число: 119
следующее простое: 127