Объём жесткого диска можно узнать, нажав на ярлык "Моего компьютера" правой кнопкой мыши, после вызова контекстного меню выбрать "Свойства". Ну, к примеру, 100Гб
Var a:array[1..10000] of integer;
n,i,j,k,t:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
j:=n;
repeat
k:=j;
j:=0;
for i:=1 to k-1 do
if a[i+1]j:=i;
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
for t:=1 to n do
write(a[t],' ');
writeln;
end;
until j=0;
if k=n then
writeln(0); //Если перестановок не было, программа выводит только число 0. Если эта команда не нужна, можешь ее убрать
end.
Закон взлома системы Pentagon в Америке карается 10 и более срок наказания!
1)сколько всего букв и цифр используется?26+10(цифры)=36, ближайшая степень двойки большая 36-это 64, то есть два в 6. то есть шесть бит занимает каждый символ пароля.
2)в пароле 9 символов, 9*6=54 бит нужно для хранения одного пароля
3)54бит/8=7байт нужно для хранения одного пароля(в одном байте 8 бит)
4)значит сто паролей занимают 700 БАЙТ