Может быть использовано
10 цифр+ 26 строчных букв + 26 прописных + 6 спец символов = 68 символов всего.
Для кодирования 68ми символов достаточно диапазона чисел от 0 до 67
(2^6=64)<67<(2^7=128)
Таким образом необходимо минимум 7 бит на символ.
7*9=63 бита на один пароль.
63*100=6300 битов на 100 паролей.
6300/8 = 787,5 байт.
Округляем в большую сторону - ответ 788 байт
Const
Pi = 3.141592;
var
R, S, L : Real;
begin<span>
</span> Write('Введите радиус круга: ');<span>
</span> ReadLn(R);
<span>
</span> S := Pi*sqr(R);<span>
</span> L := 2*Pi*R;
<span>
</span> Writeln('S круга: ', S:0:3);<span>
</span> Writeln('Длина окружности: ', L:0:3);<span>
</span> Readln;
end.
Var
d, min, max, i: integer;
begin
readln(d);
min := d;
max := d;
for i := 1 to 6 do
begin
readln(d);
if min > d then min := d;
if max < d then max := d;
end;
writeln('max = ', max);
writeln('min = ', min);
end.