Информацию можно потерять к примеру забыть или записать на листок а потом выкинуть листок удалить информацию с копютера
10-2=8 русских букв
N=2^i
8=2^i
i=3 бита(для одной русской буквы)
У нас их 8, тогда 8*3=24 бита на все русские буквы
2=2^i
i=1 бит на одну английскую букву
Их две
1*2=2 бита на все английские буквы
24+2=26 бит на весь пароль
Всего таких паролей 12:
26*12=312 бит=39 байт
Var b,c:integer;
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
<span>end.
надеюсь что так можно? ;D
</span>
Моя природа двигается и у неё течёт кровь а неживая природа это как камень или ещё что-то
Var
a,i,n:longint;
begin
a:=10;
for i:=1 to 7 do
begin
inc(n,a);
inc(a,a div 10);
end;
writeln(n);
end.<span>
</span>