Ничего не сказано про повторяющиеся значения. Если не делать проверку на повторяющиеся значения, то вот программа (проверена на версии ПаскальАВС.Нет):
var x: array [1..10] of integer; y, z: array [1..15] of integer; i, j, k: integer; f: boolean;begin //заполнение и распечатка массива Х for i := 1 to 10 do begin x[i] := random(10) + 1; write(x[i]:3); end; writeln;
//заполнение и распечатка массива У for i := 1 to 15 do begin y[i] := random(10) + 1; write(y[i]:3); end; writeln;
//заполнение массива Z for i := 1 to 15 do begin f := true; for j := 1 to 10 do if x[j] = y[i] then begin f := false; break; end; if f then begin k := k + 1; z[k] := y[i]; end; end;
//распечатка массива Z for i:=1 to k do write(z[i]:3); end.
var
x: array [1..10] of integer;
y, z: array [1..15] of integer;
i, j, k: integer;
f: boolean;begin
//заполнение и распечатка массива Х
for i := 1 to 10 do
begin
x[i] := random(10) + 1;
write(x[i]:3);
end;
writeln;
//заполнение и распечатка массива У
for i := 1 to 15 do
begin
y[i] := random(10) + 1;
write(y[i]:3);
end;
writeln;
//заполнение массива Z
for i := 1 to 15 do
begin
f := true;
for j := 1 to 10 do
if x[j] = y[i] then
begin
f := false;
break;
end;
if f then
begin
k := k + 1;
z[k] := y[i];
end;
end;
//распечатка массива Z
for i:=1 to k do
write(z[i]:3);
end.
1 2 3 4 5 6 7 8 9 10
_ _ _ _ _ _ _ _ _ _
1. Вес 1 символа в битах.
1 и 10 символы - одни из 18 букв.
2^x>=18
x=5 битт - вес 1 символа и вес 10 символа
Цифр может быть 10, следовательно,
2^x>=10
x=4 бит - вес 2,3,4,5,6,7,8,9 символов
2. Вес пароля в битах
2 буквенных символа по 5 бит каждый, следовательно,
2*5=10 бит - первый и последний символы вместе
8 цифровых символов по 4 бита каждый
8*4=32 бита - общий все цифровых символов
общий вес пароля= 32+10=42 бит
3. Вес пароля в байтах
1 байт=8 бит
42<=8*x
x= 6 байт - вес пароля в байтах
4. Вопрос задачи.
для 25 паролей будет
25*6=150 байт
ответ: 150