328(8) такого числа нет в 8сс (там от0 до 7)
32С (10) 10сс не использует буквы
120(2) в 2СС только 0 и 1
Var a,b,n:integer;
begin
a:=1;
n:=-10;
while n<=15 do
begin
if n<0 then a:=a*n else b:=b+n;
n:=n+1;
end;
write (a:6,b:6);
<span>end.</span>
Очевидно, что в подмножество войдут сигналы, для которых значение будет не меньше 1, поскольку меньшие значения уменьшают произведение.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),0,99).Select(t->0.1*t).ToArray;
a.Println.Where(t->t>=1.0).Println
end.
<u>Пример</u>
n= 15
1.3 2.8 0.7 5.1 1 0.9 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
1.3 2.8 5.1 1 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
Количество различных символов, которые используются в пароле =
10+26+26+6 = 68
Для кодирования одного символа необходимо использовать log(2)68 ≈ 7 бит (округляем в большую сторону).
Для хранения пароля необходимо 9*7 = 63 бита ≈ 8 байт
Память, используемая для хранения сведений об одном пользователе = 500/20 = 25 байт
Получаем, что для хранения дополнительных сведений используется 25-8 = 17 байт